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Prefazione 


Questo libro, specificatamente rivolto al Commodore 64, è una rielabora¬ 
zione di un precedente e fortunato lavoro, BASIC: A Hands-on Method, 
del quale conserva l’impostazione. 

I libri di programmazione BASIC hanno in genere due seri inconvenienti: 
primo, quasi tutti presuppongono da parte del lettore una buona cono¬ 
scenza della matematica: secondo, raramente "impongono” all’utente lun¬ 
ghi esercizi al computer. La nostra esperienza ci ha confermato che un 
principiante si impadronisce di concetti nuovi più facilmente e più rapi¬ 
damente quando la teoria è preceduta da una buona quantità di esperi¬ 
menti pratici. Esistono certo corsi di programmazione ma la quasi totali¬ 
tà degli utenti di personal impara a programmare per conto proprio. 
Questo libro si rivolge a tutti coloro che, da soli o in gruppo, con le cono¬ 
scenze matematiche più diverse, vogliono imparare a utilizzare il Com¬ 
modore 64. 

La struttura del libro è finalizzata a semplificare l'apprendimento. Ogni 
capitolo comincia col fissare gli obiettivi; poi gli esercizi di scoperta per¬ 
mettono agli studenti di fare esperimenti col BASIC e vedere il linguag¬ 
gio in azione. Una volta presa confidenza col C-64, si può passare a trat¬ 
tazioni più tradizionali dei concetti base. I test infine permettono un au¬ 
tocontrollo dell’apprendimento. 

Ognuno dei 12 capitoli richiede una o due ore di lavoro al calcolatore e 
altrettante di studio. 

È necessario avere a disposizione un Commodore 64 con video, in bianco 
e nero o a colori, e un drive. Quest’ultimo non è indispensabile, ma aver¬ 
ne uno faciliterà di molto il vostro approccio al computer. Nel testo si fa¬ 
rà spesso riferimento alla manualistica fornita con il C-64: la Guida di ri- 
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ferimento per il programmatore e il VIC-1541 Single Drive Floppy Disk 
User’s Manual. 
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Introduzione 


I computer fanno ormai parte della nostra vita. Possiamo non accorger¬ 
cene, ma essi esistono, impiegati nella maggior parte delle nostre attività 
quotidiane. Industrie di varie dimensioni, istituzioni accademiche, ammi¬ 
nistrazioni pubbliche: senza i computer nessuna di queste sarebbe in gra¬ 
do di manipolare l’incredibile quantità di informazioni che caratterizza la 
nostra società. Solo negli ultimi anni l'uso del computer è divenuto una 
parte significativa delle attività quotidiane e questa tendenza continuerà 
di sicuro: un sempre maggior numero di persone avrà bisogno di sapere 
come usare i computer se vorrà prender parte attiva nella società. 


CHE COS E IL BASIC? 

State per intraprendere lo studio di un linguaggio per computer chiama¬ 
to BASIC. Il BASIC è un linguaggio molto specializzato studiato per per¬ 
mettere a voi e al computer di capirvi e comunicare l’un con l’altro. Il 
BASIC possiede un vocabolario semplice, formato da poche parole, una 
struttura grammaticale e delle regole d’uso, proprio come ogni altra lin¬ 
gua. Non è complicato ed è certamente più facile da imparare di una lin¬ 
gua parlata come l’inglese o il francese. 

L’intendimento di questo libro è quello di insegnarvi il vocabolario del 
BASIC, farvi familiarizzare con le sue regole grammaticali, e permettervi 
di usare il computer per fare quello che volete. Il livello della matemati¬ 
ca è stato intenzionalmente tenuto molto basso, perciò, se vi sentite un 
po’ arrugginiti nelle vostre capacità in merito, non preoccupatevene trop¬ 
po. Man mano che andremo avanti con il BASIC, avrete modo di rinfre- 
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scare alcune cognizioni elementari di matematica. 

Un metodo molto efficace per imparare qualcosa è quello di osservare 
ciò che avviene mentre si esegue un certo compito: il metodo della "sco¬ 
perta". È la strategia che verrà usata in questo libro. Vi sarà chiesto di 
cominciare ciascun capitolo con una seduta di lavoro sul computer. Dopo 
aver seguito le istruzioni ed aver visto quello che il computer fa in rispo¬ 
sta alle vostre istruzioni, comincerete ad acquisire una certa 
"sensibilità" per il BASIC. Quando avrete questo tipo di conoscenza, potre¬ 
te procedere con maggiore profitto nello studio delle parti teoriche che 
riassumono quanto avrete imparato. L’esercizio diretto sul computer è 
quindi in questo libro una parte integrante dell’apprendimento del BASIC. 


DOVE È NATO IL BASIC? 

La versione originale del BASIC è stata creata al Dartmouth College sotto 
la direzione dei professori John G. Kemeny e Thomas E. Kurtz. Nel set¬ 
tembre del 1963 essi iniziarono i lavori su un progetto tendente alla crea¬ 
zione di un linguaggio di programmazione scritto dal punto di vista 
dell’utente. Un aspetto molto interessante della cosa è che gran parte del 
lavoro effettivo di programmazione sul progetto fu effettuato a Dart¬ 
mouth da studenti universitari non ancora laureati. La data di nascita uf¬ 
ficiale del BASIC è il 1° maggio 1964. 

Il successo di questo sforzo da pionieri compiuto a Dartmouth attirò l’at¬ 
tenzione e ben presto altre istituzioni ne furono interessate. Il resto è sto¬ 
ria. Oggi praticamente qualunque computer usa una qualche versione del 
linguaggio BASIC. Le versioni perfezionate del BASIC hanno aumentato 
in modo significativo la potenza e le capacità del linguaggio originale. 
Lo sviluppo più recente è l’uso del BASIC su computer piccoli ed econo¬ 
mici. Il BASIC C-64, il linguaggio presentato in questo libro, è una poten¬ 
te e flessibile versione perfezionata del BASIC. 


COME USARE QUESTO LIBRO 

Ciascun capitolo inizia con una breve dichiarazione degli obiettivi. Questi 
devono essere studiati attentamente in modo da ottenere una visione 
chiara di quello che dev’essere fatto. Segue poi la sezione degli Esercizi 
di scoperta: quando vi viene richiesto, dovete scrivere la risposta del 
computer nello spazio previsto nel testo. A volte vi sarà chiesto di rispon¬ 
dere a delle domande. Lo scopo di questa attività è quello di condurvi at¬ 
traverso i concetti trattati e permettervi di vedere il BASIC al lavoro. È 
importante che cerchiate di pensare a che cosa succederà in determinate 
situazioni. Si tratta di una relazione attiva fra voi e il vostro computer e 
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non dev’essere trascurata. Non è importante che le vostre risposte siano 
giuste o no; l’importante è che pensiate attentamente alle domande e che 
cerchiate di rispondere. Il tempo impiegato in questa attività vi farà ri¬ 
sparmiare tempo in seguito. 

Dopo gli esercizi di scoperta di ciascun capitolo, troverete una completa 
trattazione di tutti gli obiettivi. Dal momento che avrete già visto le idee 
e i concetti in azione sul computer, lo studio di questo materiale sarà 
molto più facile e proficuo. 

In ciascun capitolo sono compresi dei programmi completi e funzionanti. 
Questi sono esaminati in dettaglio per mettere in evidenza come gli ele¬ 
menti della programmazione sono raggruppati per produrre un program¬ 
ma in BASIC. 

Ciascun capitolo — a partire dal Capitolo 4 — ha una raccolta di proble¬ 
mi. Cercate di risolverne il più possibile, fino a che vi sentirete in grado 
di scrivere programmi del livello adeguato a ciascun capitolo. Le soluzio¬ 
ni dei problemi dispari si trovano alla fine del libro. 

Infine, ogni capitolo (escluso il primo) ha un test di controllo della prepa¬ 
razione. Lo scopo di questo controllo è quello di provare la vostra com¬ 
prensione del materiale e di mettere in evidenza gli argomenti che ri¬ 
chiedono uno studio più approfondito. Le risposte ai test di controllo del¬ 
la preparazione sono contenute in una sezione alla fine del libro. 




Capitolo 

Prendere confidenza 
con il Commodore 64 


Il vostro primo contatto con il computer può essere un po' faticoso e 
complicato, perciò andremo avanti molto lentamente. Dopo poche sedute, 
le operazioni più usuali vi sembreranno molto naturali e non vi procure¬ 
ranno alcuna difficoltà. Siate preparati comunque a una certa confusione 
all’inizio. Se necessario, non esitate a ripassare il materiale già studiato. 



1.1 Obiettivi 


In questo capitolo vogliamo prender confidenza con il computer e comin¬ 
ciare ad imparare come funziona. Non verrà effettuata alcuna program¬ 
mazione BASIC fino al prossimo capitolo. Imparare come funziona la ta¬ 
stiera e come le informazioni vengono immesse e modificate è facile ma 
fondamentale per tutto ciò che seguirà. 


ACCENSIONE DEL COMPUTER 

Esamineremo alcune fasi preliminari come 1 accendere e spegnere il com¬ 
puter, collegare la TV e selezionare il canale. 
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MODO DIRETTO 

Uno dei modi più facili di usare il computer è quello diretto. Non è ri¬ 
chiesta alcuna programmazione: il computer esegue le istruzioni man 
mano che vengono immesse. A suo tempo impareremo come fare molto 
di più, ma per ora delle semplici operazioni in modo diretto costituisco¬ 
no una buona introduzione all’uso del computer. 


CORREGGERE GLI ERRORI 

È raro che le informazioni siano immesse nel computer senza errori. Si 
ha quindi bisogno di poter cambiare o correggere facilmente quanto è 
stato immesso. 


1.2 Esercizi di scoperta 


Prima di iniziare il lavoro sul computer, dobbiamo fissare alcuni punti 
molto importanti. Su una macchina da scrivere la L minuscola viene 
spesso usata al posto del numero 1. Sul computer invece il numero 1 si 
trova con gli altri tasti numerici nella prima fila della tastiera. Ugual¬ 
mente, non bisogna usare la lettera O maiuscola o minuscola al posto del 
numero 0. Come il numero 1, lo 0 si trova nella prima fila di tasti della 
tastiera. 

Non usare la L al posto dell’l 
Non usare la O al posto dello 0 

Per battere il segno + non occorre premere il tasto shift; lo stesso vale 
per i simboli — * I. 

Il drive non sarà usato fino al Capitolo 3: per ora non occorre installarlo 
né accenderlo. 

Il calcolatore deve essere collegato con il televisore. Il selettore dei cana¬ 
li deve essere posizionato su UHF. Istruzioni più dettagliate sul collega¬ 
mento TV-computer si trovano sul manuale d’uso del C-64. 

1. Ora siamo pronti per cominciare a lavorare. Sedetevi di fronte al 
computer, mettetevi comodi e individuate il tasto return sul lato de¬ 
stro della tastiera. 

2. Accendete il televisore; assicuratevi che non siano inserite cartucce 
nel retro del C-64 e accendete il computer con il tasto on/off posizio- 
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nato sul lato destro. Una luce rossa vi indicherà che il computer è ac¬ 
ceso. Appena la TV si sarà scaldata comparirà la presentazione; 

COMMODORE 64 BASIC V2 **** 

64K RAM SVSTEM 38911 BASIC BVTES FREE 

READV. 

£ 


Sintonizzate la TV per una visione più chiara. Se il messaggio d’aper¬ 
tura non compare, ripetete la procedura. Il quadrato lampeggiante è 
chiamato cursore; sarà quasi sempre presente sul video. 

3. Ora battete 

PRINT 1+4 

Provate a premere simultaneamente i tasti shift e Commodore 0 e 
continuate a battere. (Non premete shift quando dovete scrivere + ). 
È successo qualcosa? 




Ora premete return e scrivete qui sotto cosa è successo. 


4. Ora sapete come si fa a far fare le addizioni al computer. Vediamolo 
un po’ più a fondo. Battete 

PRINT 20+54.7 

e premete return. Che cosa è successo? 


5. Battete 

PRINT 2+4-3 

e premete return. Registrate qui sotto il risultalo. 
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6. Battete ora 
PRI KIT 12/2 

e premete return. Che cosa è successo? 


Qual è l’operazione aritmetica richiamata dal segno / ? 


7. Se nel battere dei tasti fate un errore, potete spostare il cursore in¬ 
dietro sull'errore premendo il tasto segnato inst/del situato in alto a 
destra. Citeremo questo tasto chiamandolo tasto delete. Ogni volta 
che il tasto delete viene premuto, il cursore si sposterà di uno spazio 
a sinistra, cancellando un carattere. Quando raggiungete l’errore, ri¬ 
battete la riga in modo corretto. Quando premete il tasto return, il 
computer può rispondere con SYNTAX ERROR (Errore di sintassi). 
Se questo accade, cercate di vedere qual è il problema e ribattete la 
riga. 

8. Il vostro video dovrebbe essere abbastanza pieno ora. Premete il ta¬ 
sto shift e quello clr/home, vicino al tasto delete. Chiameremo l’ope¬ 
razione: shift/clr/home. Che cosa è successo? 


Premendo shift/clr/home si cancella lo schermo. Se il cursore non 
appare sullo schermo, premete return diverse volte. Se si aggiungo¬ 
no linee quando lo schermo è pieno, le precedenti, scorrendo verso 
l’alto, scompariranno. 

9. Battete 
PRINT 2*50 

e premete return. Non premete shift quando battete *. Che cosa è 
successo? 


Qual è l’operazione aritmetica richiamata da * ? 
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10. Battete la seguente espressione ma non premete il tasto return 
FRI NT C2+3)*4-1 


Che cosa pensate che succeda quando si preme return? 


Premete return e scrivete qui sotto quello che è successo. 


11. Battete ora 

FRINT M C2+3?*4-l" 

e premete return. Che cosa ha fatto il computer? 


12. Che cosa accadrà se battete 
FRINT "TORO SEDUTO" 
e premete return? 


Provate a farlo e vedete se avevate ragione. 

13. Passiamo ora ad un argomento diverso. Per prima cosa cancellate lo 
schermo. Se avete dimenticato come si fa, ripassate il punto 8. Batte¬ 
te la riga seguente. Premete il tasto return quando avete finito. 


GRRDI=95 


Ora battete 
FRINT GRRDI 

e premete return. Che cosa è successo? 
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Ora battete 
7GRRBI 


e premete return. Cosa è successo? 


Il punto interrogativo è l’abbreviazione di PRJNT 


14. Esaminate con calma le righe seguenti. 

LFfRGHEZZfi=10 
PROFONDITÀ'=6 
ALTEZZA=4 

VQLUME=LARGHEZZR*PROFONDITfì'^ALTEZZA 
PRINT VOLUME 


Che cosa pensate che farà il computer se immetterete queste righe? 


Ora battete le righe ricordandovi di premere return alla fine di cia¬ 
scuna riga. Che cosa è successo? 


15. Studiate brevemente le righe seguenti. 


LRRGHEZZR=12 
PROFONDITÀ'=9 

METRI QlJfiDR I=< LARGHEZZR*PROFGND I Tfì ' j 
PRINT METRIQUADRI ;"METRIQUADRI" 


Che cosa farà il computer con queste istruzioni? 


Cancellate lo schermo e battete le righe suddette. Ricordatevi di pre¬ 
mere return dopo ogni riga. Che cosa ha fatto il computer? 


16. Passiamo ora ad un argomento diverso. Premete il tasto shift lock. 
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sulla sinistra della tastiera. Ora premete i tasti A, S, D, F, G, H, J, K 
e L. Cosa è successo? 


Premendo shift look si pone la tastiera del computer in modo grafi¬ 
co. Osservate sulla faccia anteriore dei tasti che avete premuto il ca¬ 
rattere grafico generato in questo modo. Non tutti i tasti generano 
caratteri grafici. Provate gli altri tasti. 

17. Ora premete shift e il tasto C s . Cosa è successo? 


Ripetete questa operazione più volte osservandone i risultati sullo 
schermo. 

18. Qui finisce l'attività di scoperta per questo capitolo. Spegnete il com¬ 
puter e il televisore. 


1.3 Analisi 

ACCENSIONE DEL COMPUTER 

Il computer è estremamente semplice da accendere (ON) o spegnere 
(OFF). Come avete già visto, questo si fa azionando l’interruttore situato 
nella parte destra del computer. Prima di accendere il computer assicu¬ 
ratevi di aver rimosso l’eventuale cartuccia dal retro della macchina. 

Non rimuovete o inserite una cartuccia mentre il C-64 è acceso 

Bisogna poi accendere il televisore: comparirà sullo schermo il messag¬ 
gio di presentazione e 

RERDV 

1 


Il computer all'accensione è in modo maiuscolo/grafico. Si può alternare 
il modo maiuscolo e minuscolo premendo shift e C= simultaneamente. 
In questo libro verrà usato sempre il modo maiuscolo/grafico. 

Una cosa importante: se in qualunque momento avete l’impressione che 
le cose vi sfuggano di mano, se avete perso il contatto o se il computer 
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sembra aver perso il controllo, esiste un meccanismo sicuro per uscirne. 
Semplicemente, spegnete il computer (off). Lo svantaggio di questa ope¬ 
razione è che tutti i programmi e le informazioni in memoria andranno 
persi. 

In alternativa potete premere run/stop e restore: ciò cancella le istruzio¬ 
ni in modo diretto sullo schermo ma non le informazioni già memorizzate. 


MODO DIRETTO 

Nelle attività di scoperta avete appreso come fare delle semplici opera¬ 
zioni aritmetiche usando il computer come una calcolatrice. Questo è an¬ 
che conosciuto come modo diretto. Come vedremo nel prossimo capitolo, 
il BASIC immagazzina istruzioni e comandi in una serie di righe numera¬ 
te, e quindi è diretto da voi ad eseguire tutte le istruzioni allo stesso tem¬ 
po. Se, però, le istruzioni vengono battute senza un numero di riga, il 
computer presume che si voglia una risposta diretta o immediata ed ese¬ 
gue quello che gli è stato chiesto di fare, se questo è possibile. 

Quando le istruzioni sono battute, non succede nulla fino a che non si è 
premuto il tasto return. Il tasto return dice al computer che si è comple¬ 
tata l'istruzione. In alcuni casi il computer risponde ad un'unica pressio¬ 
ne di tasto e non richiede che venga premuto il tasto return. Questi casi, 
tuttavia, sono delle eccezioni, piuttosto che la regola. 

Abbiamo scoperto che l'addizione e la sottrazione sono richiamate da + 
e -, il che probabilmente non è stato una grande sorpresa! La moltipli¬ 
cazione e la divisione sono indicate rispettivamente da * e /. Le parentesi 
possono essere usate per raggruppare operazioni in qualunque modo si 
desideri. C’è un certo numero di altre operazioni più sofisticate che pos¬ 
sono essere eseguite, ma ne rimandiamo la trattazione ai capitoli succes¬ 
sivi. Se si batte 

PRINT 5*3.2+6.3 

e si preme return, il computer esegue le operazioni aritmetiche e stampa 
il risultato. 

Se si batte 

PRINT "fiBCDEFG" 

e si preme return, al computer viene dato l’ordine di stampare la sequen¬ 
za di caratteri compresa fra le virgolette, in questo caso le lettere ABC- 
DEFG. Tale sequenza è chiamata "stringa di caratteri’’, ed è un concetto 
importante sul quale torneremo nel corso del manuale. 

Il computer può eseguire diverse istruzioni nel modo diretto. Così 
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R=2 

B=3 

PRINT fl+E 


farà sì che sullo schermo venga stampato 5. C’è una cosa molto impor¬ 
tante collegata con questo concetto. Se battiamo 

PRINT TRS3E 

e quindi premiamo return verrà visualizzato il numero zero. Dal momen¬ 
to che non abbiamo fornito alcun valore per TASSE, il computer ha asse¬ 
gnato il valore 0 e quindi l’ha stampato. 

Il computer è molto elastico per quanto riguarda i nomi per le quantità 
usati sia nel modo diretto che nei programmi BASIC. Possiamo usare no¬ 
mi "lunghi” come LUNGHEZZA o TASSE, e nomi "brevi” come L o T. I 
nomi lunghi possono creare dei problemi: il computer infatti utilizza solo 
i primi due caratteri per distinguere le variabili e interpreta PENNA e 
PESCE allo stesso modo. I nomi non devono includere spazi. Alcune pa¬ 
role non possono essere usate come nomi di variabili dal momento che 
sono riservate per l’uso da parte del computer. L’elenco delle "parole ri¬ 
servate” è contenuto nell'appendice A della Guida di riferimento per il 
programmatore. 


CORREGGERE GLI ERRORI 

Più avanti impareremo ad usare i comandi per correggere programmi 
BASIC. Si può tuttavia apportare correzioni in modo diretto, prima di 
aver premuto return. Potete correggere una riga muovendo il cursore 
verso sinistra con il tasto delete. Ogni volta che si preme il tasto delete, 
si cancella un carattere alla sinistra del cursore; dopo la correzione si 
può riprendere a battere. 


1.4 Test di apprendimento 


Effettuate il seguente test per scoprire se avete imparato bene gli obietti¬ 
vi del Capitolo 1. Le risposte sono date nell’appendice C. 

1. Quando avete finito di battere una riga, come fate per farlo sapere al 
computer? 
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2. Se perdete il controllo del computer, come potete riprenderlo? 


3. Qual è il simbolo usato per indicare la moltiplicazione sul computer? 


4. Come si fa a cancellare il video? 


5. Quale operazione indica il simbolo /? 


6. Che cosa succede se battete 
PRINT 3*4/6 
e poi premete return? 


7. Che cosa succederà se battete 
PRINT "25/5+2" 
e poi premete return? 


8. Supponete di aver battuto PRING 2 = 3*4 e prima di premere return 
vi accorgete che al posto della T nella parola PRINT c'è una G. De¬ 
scrivete come si deve fare per correggere l’errore. 









Capitolo 


Introduzione al BASIC 



Ora siamo pronti per cominciare ad imparare a programmare in BASIC. 
In questo capitolo vedremo come scrivere ed eseguire alcuni programmi 
molto semplici. 


2.1 Obiettivi 

CORREGGERE I PROGRAMMI 

Già sapete come correggere una riga usando il tasto delete. Vedremo ora 
come sostituire una riga errata di un programma, battendo una nuova ri¬ 
ga con lo stesso numero. Impareremo inoltre ad usare le capacità di cor¬ 
rezione, (editing), del BASIC C-64 per aggiungere o cancellare informazio¬ 
ni da una riga. Una buona conoscenza dell'editing vi farà risparmiare 
tempo in seguito. 


REQUISITI DEI PROGRAMMI BASIC 

Tutti i programmi BASIC hanno delle caratteristiche comuni. Ne osserve¬ 
remo alcuni molto semplici per imparare quali sono queste caratteristi¬ 
che. 
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DIRE AL COMPUTER QUEL CHE DEVE FARE 

I comandi sono usali per dire al computer di fare qualcosa ad un pro¬ 
gramma BASIC o con un programma BASIC. Osserveremo i seguenti co¬ 
mandi: LIST, RUN e NEW. 


IMMISSIONE E CONTROLLO DEI PROGRAMMI 

Questo obiettivo si sovrappone in parte a quello precedente. La cosa prin¬ 
cipale che vogliamo raggiungere è di farvi sentire a vostro agio quando 
immettete e controllate i programmi. Tutti i programmi che incontrere¬ 
mo inizialmente sono brevi e facili da gestire. 


NOMI DELLE VARIABILI IN BASIC 

Dobbiamo sapere come chiamare i numeri o le stringhe di caratteri nei 
programmi in BASIC. Fortunatamente il computer ha delle regole molto 
elastiche in proposito. 


2.2 Esercizi di scoperta 


Nelle attività di scoperta che seguono, vi verrà suggerito come immettere 
vari programmi. Se vedete un <return> nelle istruzioni, premete il 
tasto return. Ricordate dalle vostre esperienze del Capitolo 1 che pre¬ 
mendo il tasto return si avverte il computer che si è finito di battere la 
riga. Ora passate alle attività illustrate qui di seguito. 

1. Accendete il computer e il televisore. 

2. Battete 

106 LET fl=l CRETURN} 

Questa è la prima riga di un programma BASIC. 

3. Ora battete il resto del programma come è elencato qui sotto. 

110 LET B=8 <RETURN> 

120 LET C=fi+B <RETURN> 

180 PRIMT C <RETURN> 

140 END CRETURtD 
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Se fate errori durante la battitura del programma, ribattete la riga o 
correggete l’errore usando i metodi appresi nel Capitolo 1. Se vi ac¬ 
corgete di aver commesso un errore dopo aver premuto return, bat¬ 
tete, in qualsiasi punto del programma, una riga con lo stesso nume¬ 
ro, che si sostituirà a quella errata. 

4. Cancellate lo schermo usando il comando shift/clr/home. Che cosa è 
successo al programma che avete appena battuto? 


5. Fortunatamente non tutto è perduto. Il computer ricorda quello che 
avete battuto anche se lo schermo è diventato vuoto. 

Battete LIST e premete il tasto return. Che cosa è successo? 


6. Sullo schermo dovreste vedere il programma che avete appena im¬ 
messo. Per ora ignorate i numeri posti all'inizio di ciascuna riga. Leg¬ 
gete le righe del programma e cercate di capire che cosa significano, 
pensando che LET in inglese significa "poniamo che’’, PRINT "stam¬ 
pa’’ e END "fine". Se al computer viene detto di eseguire le istruzio¬ 
ni, che cosa pensate che succederà? 


Battete RUN ("esegui”) e quindi premete il tasto return. Che cosa è 
successo? 


7. Ora battete 

110 LET B=5 CRETURhD 

Cancellate lo schermo, battete LIST, e quindi premete il tasto return. 
È un 8 o un 5 l’ultimo numero della riga 110? 


8. Se dite al computer di eseguire questo programma che cosa pensate 
che accadrà? 
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Battete RUN, premete il tasto return e registrate qui sotto quello che 
avviene. Avevate visto giusto? 


9. Battete ora 
140 <RETURN> 

Cancellate lo schermo e visualizzate il programma usando il coman¬ 
do LIST. Che cosa è successo alla riga 140? 


Se volete cancellare una riga in un programma BASIC, in che modo 
lo potete fare? 


10. Ora eseguite il programma battendo RUN e return. Che cosa succe¬ 
de? 


Vi sembra che l’istruzione END ("fine”) che si trovava prima nella ri¬ 
ga 140 sia richiesta dal computer? 


11. Proviamo a tare qualche altra prova. Spesso vorremo cancellare il 
programma dalla memoria del computer. Questo si ottiene con il co¬ 
mando NEW ("nuovo”) che cancella la memoria. Battete NEW e pre¬ 
mete il tasto return. Che cosa succede? 


Battete LIST e premete il tasto return per vedere quello che il com¬ 
puter ha in memoria. C'è qualcosa in memoria? 


12. Abbiamo imparato come cancellare un programma dalla memoria, 
ma adesso non abbiamo più il programma! Per riaverlo a disposizio¬ 
ne dobbiamo immetterlo di nuovo. Battete il programma seguente. 
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100 LET R=1 <RETURN:> 
110 LET B=8 CRETURIO 
120 LET C=fi+E <RETURH> 
130 FRINT C <RETURN> 
140 END <RETURN> 


Controllate tutte le righe per assicurarvi che siano state immesse in 
modo corretto. Se una riga ha bisogno di essere cambiata, ribattete¬ 
la. Se avete dovuto ribattere delle righe, cancellate lo schermo con il 
comando shift/clr/home e rivisualizzate il programma battendo LIST. 


13. Ora battete 


125 LET D=B-Fl <RETURN> 
135 FRI NT D <iRETURN> 


Cancellate lo schermo e visualizzate il programma. Che cosa è suc¬ 
cesso? 


14. Studiate con calma il programma. Che cosa accadrà se eseguirete 
con RUN il programma? 


Battete RUN, premete il tasto return, e registrate qui sotto quello 
che il computer ha fatto. 


15. Nel programma originale i numeri di riga non erano consecutivi (ad 
es.: 100, 101, 102, 103, ecc.) ma avevano degli intervalli (ad es. 100, 
110, 120, 130 e 140). Potete pensare ora al motivo per cui è stato fatto 
ciò? (Suggerimento: vedere il punto 13). 


16. Come si fa ad inserire delle righe in un programma BASIC? (Suggeri¬ 
mento: vedere i punti 13 e 15). 


17. Cancellate il programma dalla memoria battendo NEW e premendo il 
tasto return. Immettete il programma seguente 
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100 INPUT BIANCO CRETURM> 

110 LET ROSSO=BIANCO+2 CRETURN> 
120 PRIHT ROSSO <RETURH> 

130 GOTO 100 CRETURN> 

148 END CRETURN> 


18. Questo nuovo programma ha varie caratteristiche che non avete visto 
prima. Studiate attentamente il programma e pensate a quello che 
accadrebbe se lo eseguiste con RUN. INPUT in inglese vuol dire "im¬ 
metti"; sapendo che GOTO significa in inglese "vai a", che cosa signi¬ 
fica il GOTO 100 nella riga 130? 


19. Eseguite con RUN il programma e registrate quello che il computer 
ha fatto. 


Battete il numero 6 e premete il tasto return. Che cosa è successo? 


20. Battete il numero 10 e premete il tasto return. Che cosa è successo? 


21. Quale riga del programma pensale che generi il punto interrogativo? 


Descrivete con parole vostre quello che il programma fa. Se necessa¬ 
rio, fate altre prove per essere sicuri di non sbagliare. 


22. Ora vogliamo uscire dal programma. Individuate i tasti run/stop e re- 
store (situati aH’estremità sinistra e destra della tastiera) e premete¬ 
li contemporaneamente. D’ora in poi citeremo questi tasti come 
run/stop/restore. Che cosa è successo? 


Se non è successo niente, riprovate. 
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23. Battete NEW per cancellare il programma in memoria. Battete il se¬ 
guente programma: 


100 LET R=100 CRETURhD 
110 PRIHT fi CRETURN> 
120 LET R=B+1 CRETURhD 
130 GOTO 110 CRETURHy 
140 END <RETURM> 


Eseguite il programma e scrivete cosa è successo. 


Quando vi stancate di guardare il video, premete run/stop. Che cosa è 
accaduto? 


24. Provate ancora una volta. Eseguite con RUN il programma e dopo 
che qualche numero è stato visualizzato, interrompetelo. Come si fa a 
interrompere un programma BASIC che è in esecuzione sul compu¬ 
ter? 


25. Cancellate lo schermo e visualizzate il programma in memoria. (Ve¬ 
dere i punti 4 e 5). Battete le righe sottostanti. Si noti l'assenza di 
spazi nella prima riga e gli spazi in più nella seconda. 

100LETft=l <RETURN> 

120LETfi=R+l <RETURN> 

Cancellate lo schermo e listate il programma. Che cosa è successo? 


Eseguite il programma. Cosa è successo? 


Ora battete run/stop per interrompere il programma. È chiaro che al¬ 
cuni spazi sono importanti nelle istruzioni BASIC e altri no. Per ora 
vi basterà notare il fatto. Torneremo su questo argomento più tardi. 
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26. Proviamo un programma con qualche nuova caratteristica. Cancella¬ 
te il programma dalla memoria battendo NEW e premendo quindi il 
tasto return. Immettete il programma qui sotto riportato. 


100 PRINT "BATTERE UN NUMERO" <RETURN> 
110 INPUT PRIMO <RETURN> 

120 PRINT "ANCORA UNA VOLTA" 

130 INPUT SEC <RETURN> 

140 LET SQMMA=PRIMO+SEC <RETURN> 

150 PRINT "LA LORO SOMMA E'" CRETURN} 
160 PRINT SOMMA <RETURN> 

170 END <RETURN> 


27. Studiate per qualche istante il programma. Ora eseguitelo con RUN. 
Che cosa è successo? 


Battere il numero 12, premere il tasto return, e registrare qui sotto 
quello che il computer ha fatto. 


28. Bene, ora battete il numero 13, premete il tasto return, e registrate 
qui sotto quello che è successo. 


29. Vogliamo cambiare "ANCORA UNA VOLTA’’ in "ANCORA UN NU- 
MERO’’ nella riga 120. Certamente potremmo ribattere l’intera riga, 
ma possiamo sfruttare l’editing del BASIC C-64. 

Battete 

LIST 120 CRETURN> 

Cosa è successo? 


Premete shift e il tasto contrassegnato da ffcRSRtl sul lato destro in 
basso. Cosa è successo? 


Premete SHiFr/fìcRSRtl ancora due volte. Il cursore dovrebbe ora trovar- 
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si sulla riga 120. Senza lo shift premuto, premete c=crsr=» diverse volte 
fino a che il cursore è sulle seconde virgolette. Premete delete 7 vol¬ 
te per cancellare le lettere A T L O V (spazio) A alla sinistra del cur¬ 
sore. Ora battete (spazio) NUMERO” e premete return. Cosa è suc¬ 
cesso? 


Listate il programma. La linea 120 dovrebbe essere 
120 PRINT "ANCORA UN NUMERO" 

30. Se vi accorgete che la riga non è stata cambiata correttamente, ribat¬ 
tetela o ricorreggetela. 

31. Si può cambiare una riga, dopo averla listata, muovendo il cursore 
crsr fino alla posizione dove si devono effettuare cambiamenti e ribat¬ 
tendo le correzioni, return ricolloca la riga cambiata nel programma. 

32. Facciamo un altro cambiamento nella riga 120. Listatela, muovete il 
cursore fino alle seconde virgolette alla fine della riga. Premete shiet 
e lnst/del una volta. Cosa è sucesso? 


33. Ora premete shift/inst/del 6 volte. Inserite 7 caratteri 
, PREGO 

34. Ora premete return per completare l’editing della riga. Visualizzate 
il programma per vedere se sono stati inseriti i cambiamenti. La riga 
120 dovrebbe essere: 

120 PRINT "ANCORA UN NUMERO > PREGO" 

35. Eseguite ii programma. Alle domande di input, battete 22 e 23. Il pro¬ 
gramma ha un aspetto migliore? 


36. Consideriamo ora un argomento diverso. Cancellate lo schermo. Bat¬ 
tete NEW e premete il tasto return per eliminare il programma dalla 
memoria. Immettete quindi il programma seguente. 
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100 LET fi=l <RETURN> 

110 LET fìS^'CRSA" <RETURN> 
120 PRINT fi <RETURN> 

130 PRINT "fi" <CRETURN> 

140 PRINT fi* <RETURN> 

150 PRINT "fi$" <RETURN> 

160 END <RETURN> 


37. Questo programma contiene qualcosa di nuovo. Osservate l’A$ nella 
riga 110. Si noti che è posto uguale ad una parola racchiusa fra vir¬ 
golette. Il programma ha a che fare con variazioni sulla stampa di A 
e A$. Eseguite con RUN il programma e registratene l’uscita. 


38. Si studi attentamente l’uscita e si identifichi quello che è stato stam¬ 
pato in risposta ad ognuna delle istruzioni PRINT. Per ora fate solo i 
confronti. Più tardi esamineremo l’argomento più dettagliatamente. 
Immettere la riga seguente: 

155 PRINT B CRETURfO 

39. Cancellate lo schermo e visualizzate il programma con il comando 
LIST. Notate che l’unico posto in cui B viene menzionato è la riga 
155 nell’istruzione PRINT. Cosa pensate che accadrà se facciamo ese¬ 
guire il programma? 


Bene, ora eseguite con RUN il programma e registrate quello che av¬ 
viene. 


40. Come si è visto nel Capitolo 1, anche se il valore di B non è stato de¬ 
finito nel programma, il computer gli ha assegnato il valore zero. 
Questo è un fatto importante da ricordare mentre si scrivono pro¬ 
grammi. 

41. Con questo si concludono le attività di scoperta per questo capitolo. 
Spegnete il computer e la TV e andate avanti con la sezione successiva. 
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2.3 Analisi 

CORREGGERE I PROGRAMMI 

Siccome la maggior parte di noi fa errori quando batte a macchina, dob¬ 
biamo essere in grado di correggerli. Supponiamo che sia stato fatto un 
errore mentre si batteva una riga. Se non avete già premuto il tasto re¬ 
turn alla fine della riga potete spostare il cursore a sinistra usando il ta¬ 
sto delete e apportare le necessarie correzioni come si è visto nel Capito¬ 
lo 1. Quando in una riga sono state effettuate tutte le correzioni, premete 
il tasto RETURN. 

Se si vuole cambiare una riga dopo che è stato premuto il tasto rf.turn si 
può usare l’editing del C-64. Per esempio, se volete cambiare la riga 110 
di un programma, dovete battere 

LIST 110 CRETURIO 

IL computer visualizzerà la riga 110; usate i tasti del movimento del cur¬ 
sore in basso a destra «crsr=» U crsr il per posizionarlo dove devono es¬ 
sere effettuati i cambiamenti. Battete sopra i caratteri esistenti o usate 
inst/del o shift/inst/del per correggere. Premete return quando avete fi¬ 
nito di correggere la riga. Gli spazi inseriti con shift/inst/del devono es¬ 
sere cancellati (col tasto delete) prima degli altri caratteri. Dopo che è 
stato premuto shift/inst/del una volta e si preme inst/del, appare una T 
inversa. 

Premendo ancora inst/del si cancellerà questo simbolo. 


REQUISITI DEI PROGRAMMI IN BASIC 


Abbiamo visto vari aspetti importanti dei programmi in BASIC. Come 
esempio torneremo al programma usato precedentemente nel lavoro sul 
computer: 


100 LET fì=l 
110 LET B=3 
120 LET C=fl+B 
130 PRINT C 
140 END 


Ogni programma in BASIC è formato da un gruppo di righe chiamate 
istruzioni. Ciascuna istruzione deve avere un numero di riga e non deve 
superare gli 80 caratteri. Nel suddetto programma ci sono tre tipi di 
istruzioni BASIC: LET, PRINT e END. Le prime due istruzioni saranno 
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trattate completamente nei capitoli seguenti. Per ora l'uso di ciascuna di 
queste istruzioni nel programma è chiaro. L’istruzione END ("fine”) non 
è richiesta dal Commodore 64. Il programma si potrà eseguire con o sen¬ 
za l'istruzione END. È però buona norma usarla, specialmente in pro¬ 
grammi lunghi, in modo che non ci sia confusione su dove il programma 
termina. Ci faremo una regola di usare l’istruzione END in tutti i pro¬ 
grammi, anche se il computer non la richiede. 

Generalmente i numeri di riga in un programma BASIC non sono nume¬ 
rati consecutivamente (come 100, 101, 102, ecc.). Il motivo è che potrem¬ 
mo aver bisogno in seguito di inserire delle- istruzioni addizionali se sco¬ 
priamo errori o vogliamo modificare il programma. Se le righe fossero 
numerate consecutivamente e fossero distanziate di 1 fra di loro, sarebbe 
meno facile fare i cambiamenti. Con degli intervalli fra i numeri di riga, 
possono essere inserite nuove istruzioni con numeri di riga che non si 
trovino già nel programma. 

Come abbiamo visto negli esercizi di scoperta, alcuni spazi sono impor¬ 
tanti nei programmi BASIC. Sarebbe tempo sprecato soffermarci su que¬ 
sto argomento. È bene però che teniate il problema degli spazi nel fondo 
della vostra mente come una possibile soluzione degli errori che possono 
capitare. Basti dire che, se rendete le istruzioni dei vostri programmi leg¬ 
gibili, non dovreste avere dei problemi con gli spazi. 

Potete immettere le righe del programma in ordine casuale. Se battiamo 
per esempio 

148 END 
120 LET C-R+B 
110 LET B=8 
130 FRINT C 
100 LET R=1 


e questo nuovo programma viene listato, il computer metterà in ordine le 
istruzioni c le visualizzerà in ordine di numero. Allo stesso modo, se do¬ 
vessimo eseguire il programma battuto in quel modo, il computer mette¬ 
rebbe in ordine le istruzioni nel modo appropriato prima di iniziare l'ese¬ 
cuzione. 

Si può togliere un’istruzione BASIC dal programma battendo il numero 
di riga e premendo il tasto return. Le istruzioni possono essere modifica¬ 
te ribattendo le righe interessate e premendo return dopo che ciascuna 
riga è stata battuta, oppure usando l’editing. Abbiamo visto infine che si 
possono aggiungere istruzioni usando numeri di riga non ancora utilizzati. 
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DIRE AL COMPUTER QUEL CHE DEVE FARE 

Occorre fare una distinzione netta fra le istruzioni di un programma BA¬ 
SIC e i comandi. I comandi dicono al computer di fare qualcosa con un 
programma. Nel lavoro sul computer ne abbiamo visti diversi ed ora ne 
ripasseremo brevemente l’uso. 

Quando un programma BASIC viene immesso, va nella memoria. Spesso 
c'è bisogno di vedere il programma contenuto in memoria per controllare 
i cambiamenti fatti o farne una copia. In ogni caso, già sapete che questo 
si fa con il comando LIST. Questo comando è molto utile. Se un program¬ 
ma non funziona come dovrebbe, il primo passo da fare è quello di visua¬ 
lizzarlo. Il modo di risolvere il problema è quello di far sì che il compu¬ 
ter fornisca una copia del programma che sta eseguendo. Usate questa 
copia per cercare l'errore nel programma. 

Quando si spegne il computer, il contenuto della memoria si cancella au¬ 
tomaticamente. Mentre si lavora sul computer, però, è possibile avere 
programmi che si mescolano l'un con l’altro senza che ce ne accorgiamo. 
Supponete di star lavorando con un programma e di decidere di prose¬ 
guire con un altro. Se prima non cancellate il primo programma dalla 
memoria, il secondo entrerà sopra il primo col risultato che parti di en¬ 
trambi i programmi si mescoleranno in memoria. Per evitare questo state 
attenti a cancellare un programma con il comando NEW quando avete fi¬ 
nito di lavorare con esso. 

Un programma BASIC è semplicemente un gruppo di istruzioni che devo¬ 
no agire sul computer. Tuttavia il computer ha bisogno che gli si dica di 
cominciare il procedimento. Quando riceve il comando RUN, il computer 
va alla riga che nel programma ha il numero più basso, esegue le istru¬ 
zioni, passa alla riga con il numero immediatamente superiore, e conti¬ 
nua ad eseguire istruzioni in ordine numerico, a meno che il programma 
indichi che un'istruzione debba essere eseguita al di fuori dell'ordine 
consecutivo. 

Usare SHIFT/clr/home per pulire lo schermo. Poi battere LIST per vi¬ 
sualizzare il programma in memoria 

Battere NEW per cancellare il programma in memoria 

Battere RUN per far eseguire il programma 


IMMISSIONE E CONTROLLO DEI PROGRAMMI 

Fino ad ora, quando vi è stato detto di immettere dei programmi o dei 
comandi, vi è stata data la scritta < return > per ricordarvi di premere il 
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relativo tasto. Quest’abitudine dovrebbe essere ben sviluppata ora, per 
cui in futuro non useremo più la scritta < return >. D’ora in poi quando 
avete finito di battere un'istruzione o un comando, premete il tasto re¬ 
turn per far sapere al computer che avete finito. 

Possono sorgere delle situazioni in cui si ha bisogno di controllare un 
programma in esecuzione. Certamente uno dei casi più drammatici è 
quando un programma si trova in un'iterazione chiusa (loop) e continue¬ 
rebbe a girare per sempre se non lo interrompessimo. Possiamo inter¬ 
rompere un programma di questo tipo tenendo abbassato run/stop: il 
computer interrompe l’esecuzione del programma e ci dice BREAK IN 
("interrotto a”) seguito dal numero della riga che stava eseguendo al mo¬ 
mento dell’interruzione. 

Una situazione diversa capita quando il computer è in un'iterazione di in¬ 
gresso (input loop) in attesa che sia immesso un dato. Se vogliamo uscire 
da una situazione di questo tipo, premiamo run/stop/restore. Il computer 
allora salta fuori dall’esecuzione del programma tornando di nuovo nel 
modo READY. 


NOMI DELLE VARIABILI IN BASIC 

Uno degli aspetti del BASIC che più spesso causano problemi ai princi¬ 
pianti, riguarda i nomi delle variabili e la distinzione fra il nome della 
variabile e i dati memorizzati sotto quel nome. Nell'istruzione BASIC 

100 LET R=2 

A è il nome di una variabile. Con "variabile 1 ' vogliamo dire che diversi 
valori possono essere assegnati ad A. Di conseguenza, le istruzioni LET 
sono spesso chiamate istruzioni di assegnamento. In questo caso alla va¬ 
riabile A viene assegnato il valore 2. In realtà quello che ha luogo è che, 
da qualche parte nel computer, c’è una posizione di memoria chiamata A, 
e che il numero 2 è memorizzato in quella posizione. L'idea fondamentale 
è quella di separare il nome di una posizione in memoria dal contenuto 
della posizione stessa. È la stessa differenza che passa tra il numero di 
una casella in un ufficio postale e il contenuto di quella casella. Il nume¬ 
ro della casella non cambia, ma il contenuto può essere cambiato ogni 
momento. 

Considerate la seguente riga di istruzione: 

130 LET C=R+E 

Questa istruisce il computer a prendere i numeri immagazzinati nelle po¬ 
sizioni chiamate A e B, sommarli assieme e mettere la somma nella posi- 
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zione di immagazzinamento chiamata C. Il segno di uguale significa che 
si deve calcolare quello che si trova a destra e assegnarlo al nome di va¬ 
riabile sulla sinistra. Supponiamo ora di avere un'istruzione BASIC come 

120 LET B=B+1 

Se consideriamo la riga suddetta come un’equazione algebrica, abbiamo 

B = B + l 

Se si sottrae B da entrambi i lati di questa equazione, abbiamo 
0 = 1 

il che è davvero molto strano! È chiaro che in un'istruzione BASIC il se¬ 
gno = non significa la stessa cosa che in un'equazione algebrica. Invece, 
l'istruzione 

120 LET B=B+1 

istruisce il computer a prendere il numero situato nella posizione B, ad 
aggiungere 1 a quel numero e a mettere il risultato di nuovo nella posi¬ 
zione di immagazzinamento chiamata B. 

Se mettiamo un numero in una posizione di memoria, tutto ciò che vi era 
memorizzato prima viene perso. Si considerino le seguenti istruzioni: 

106 LET fl*l 
110 LET R=2#3 

La riga 100 istruisce il computer a stabilire una posizione chiamata A e a 
mettere il numero 1 in quella posizione. La riga 110 dice al computer di 
moltiplicare 2 per 3 e memorizzare il prodotto nella posizione A. L’1 me¬ 
morizzato in precedenza nella posizione A è stato perso. 

Questo ci porta al cuore del problema. La lettera A, che identifica la posi¬ 
zione, si chiama variabile perché il contenuto di A può essere cambiato. 
Il nome della posizione non cambia, ma può esserlo il numero che vi è 
memorizzato. 

Per essere più precisi, la variabile A cui si fa riferimento sopra si chiama 
variabile "numerica''. Il motivo per cui si è aggiunto l’aggettivo "numeri¬ 
ca” al nome è che c’è un altro tipo di variabile, chiamata "stringa di ca¬ 
ratteri”. Nelle attività di scoperta è stato brevemente introdotto questo 
concetto; per quanto riguarda i nomi, è facile distinguere le variabili nu¬ 
meriche da quelle a stringa di caratteri. A, LIBRO, M e P identifichereb¬ 
bero tutte delle variabili numeriche e darebbero il nome a quantità nu- 
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meriche. A$, LIBRO$, M$ e P$ indicano tutte stringhe di caratteri. Il sim¬ 
bolo $ che vi è aggiunto identifica il nome come una variabile a stringa 
di caratteri. Nell’istruzione BASIC 

100 LET B*="GRANAIO" 

B$ dà il nome ad una posizione in memoria nella quale è memorizzata la 
stringa di caratteri "GRANAIO’’. Le virgolette delimitano la stringa, ma 
non ne fanno parte. 

Ricordate che il BASIC C-64 ha delle regole molto elastiche per i nomi 
delle variabili. Vi permette.di usare dei nomi lunghi sia per le variabili 
numeriche che per quelle a stringa di caratteri: si possono usare fino a 
77 caratteri (compreso il carattere $ nel caso di stringhe di caratteri). Il 
computer tuttavia distingue le variabili solo dai primi due caratteri del 
loro nome; esso ha inoltre un gruppo di parole "riservate” che sono usa¬ 
te in BASIC e per comandi. Queste parole non possono essere usate per 
dare il nome a delle variabili. Però, se fate un errore e ne usate una, il 
computer ve lo farà sapere! 

Per riassumere, un nome di variabile in BASIC identifica una posizione 
di immagazzinamento in memoria che può contenere un numero o una 
stringa di caratteri. Il contenuto della posizione di memoria (il valore del¬ 
la variabile) può essere cambiato, ma il nome della posizione non può es¬ 
serlo. 

L’istruzione LET (assegnamento) calcola quello che si trova alla destra 
del segno uguale e lo assegna alla posizione di memoria il cui nome si 
trova alla sinistra. Perciò, 

100 LET B=R+B+C 

istruisce il computer a calcolare l’espressione (A + B + C) usando i numeri 
memorizzati nelle posizioni di memoria chiamate A, B, e C. Il risultato è 
quindi memorizzato nella posizione di memoria chiamata D. 

L'uso di LET nelle istruzioni di assegnamento è facoltativo nel BASIC 
C-64; per motivi di coerenza, in questo libro lo useremo sempre. 
Abbiamo appena grattalo la superficie per quanto riguarda le variabili a 
stringa di caratteri. Torneremo su quest’argomento varie volte nel corso 
del manuale. 


2.4 Test di apprendimento 

1. Come segnalate al computer che avete finito di battere una riga o 
un’istruzione? 
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2. Supponete che il vostro computer stia aspettando che voi immettiate 
un numero per un’istruzione di ingresso (INPUT) in un programma. 
Invece voi decidete di uscire dal programma. Come fate? 


3. Come si fa a fermare un programma in esecuzione sul computer? 


4. Che cosa c’è di sbagliato nel programma seguente? 

100 LET H=1 
110 LET E=3 
120 LET C=E-R 
PRINT C 
130 END 


5. Che cosa succederebbe se il programma del punto 4 venisse corretto 
e fosse avviato con RUN? 


6. Quanto possono essere lunghi i nomi delle variabili? 


7. Come si fa ad inserire una riga in un programma BASIC? 


8. Come si sostituisce una riga in un programma BASIC? 


9. Come si fa a togliere una riga da un programma BASIC? 


10. Come si visualizza il programma in memoria? 
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11. Come si fa a cancellare lo schermo? 


12. Come si fa a comandare al computer di eseguire il programma in me¬ 
moria? 


13. Come si cancella un programma in memoria? 


14. Qual è la differenza fra una variabile numerica e una variabile a 
stringa di caratteri? 


15. Che cosa fa il seguente comando? 
LIST 120 


16. Quali tasti muovono il cursore? 


17. Quali tasti si usano per inserire e cancellare caratteri in una riga? 


18. Quando una riga è stata corretta, come bisogna terminare la corre¬ 
zione? 












Capitolo 


Aritmetica col computer 
Gestione dei programmi 



3.1 Obiettivi 


Per alcuni esercizi di questo capitolo avrete bisogno di un disco vuoto. Le 
istruzioni per utilizzare il drive sono date nel VIC-154I Single Drive Flop¬ 
py Disk User's Manual. 

ARITMETICA COL COMPUTER 

Se si va a vedere fino in fondo, tutta la matematica che si fa col compu¬ 
ter usa solo le operazioni aritmetiche più semplici. È essenziale avere 
una visione chiara di come queste operazioni vengono fatte. 


PARENTESI NEI CALCOLI 

Tutte le espressioni matematiche devono essere battute in una sola istru¬ 
zione per essere immesse nel computer. Alcune espressioni possono esse¬ 
re trattate in questo modo solo se organizzate in parentesi. L'uso efficace 
delle parentesi diventa così una necessità. 
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NOTAZIONE ESPONENZIALE 

Il computer ha a che fare sia con numeri molto grandi sia con numeri 
molto piccoli. Per descriverli utilizza la notazione E (esponenziale). Dob¬ 
biamo quindi essere in grado di riconoscerla e interpretarla. 


FORMATTARE UN DISCHETTO 

I dischi nuovi o vuoti devono essere preparati o "formattati” per essere 
usati sul Commodore 64. Dobbiamo sapere come si formatta corretta- 
mente un disco per potervi memorizzare i programmi. 

ARCHIVIAZIONE E RICHIAMO DI PROGRAMMI 

Saranno introdotti ora i comandi che ci permetteranno di archiviare e ri¬ 
chiamare i programmi usando un disco. Saranno inoltre esplorati i co¬ 
mandi per la gestione dei programmi. 


3.2 Esercizi di scoperta 

Per installare il drive seguite le seguenti istruzioni: per prima cosa spe¬ 
gnete il computer; inserite il cavo grigio fornito con il drive nell’apposita 
presa sul retro del drive e nella presa di corrente. Assicuratevi che il dri¬ 
ve sia spento (OFF) e che quindi le spie luminose siano spente. 
Effettuate il collegamento tra il drive e il computer inserendo l’apposito 
cavo nella porta seriale a sinistra sul retro del drive e in quella a destra 
sul retro del C-64. Accendete prima il drive e poi il computer (il compu¬ 
ter sempre dopo!). Troverete maggiori dettagli nel manuale allegato al 
drive. Faremo uso del drive dall’esercizio n. 11 in poi. 

1. Accendete il computer e la TV. Ricordate dal Capitolo 2 i seguenti 
simboli per le operazioni aritmetiche: 

4- Addizione 
- Sottrazione 
* Moltiplicazione 
/ Divisione 

Per ripassare le operazioni aritmetiche, battete il seguente program¬ 
ma: 
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100 INPUT R 
110 INPUT I: 

120 LET C=R*B-E/3 
130 PRIHT C 
140 END 


Visualizzate il programma e studiatelo brevemente. Se si esegue il 
programma e si immette 2 per A e 3 per B, che cosa pensate che ver¬ 
rà stampato? 


Eseguite il programma immettendo 2 e 3 e scrivete quello che è suc¬ 
cesso. 


2. Cancellate il programma in memoria. Ora battete 


100 LET R=3*3 
110 LET B=3T2 
120 FRINT R 
130 PRINT E 
140 END 


Visualizzate il programma e assicuratevi che sia corretto. Ora esegui¬ 
telo con RUN e registrate qui sotto che cosa viene stampato. 


Confrontate i numeri stampati con le espressioni che si trovano nelle 
righe in cui questi sono stati calcolati. Cercate di capire quello che è 
avvenuto. 

3. Battete 

100 LET R=3#3#3 
110 LET B=3f3 


Avviate il programma. Che cosa viene stampato? 







48 ARITMETICA COL COMPUTER - GESTIONE DEI PROGRAMMI 


4. Battete 


10i? LET *=£*2*2*2 
110 LET B=2T4 

Avviate con RUN il programma. Che cosa viene stampato? 


A che cosa serve il simbolo t? 


5. Ricordate dalle vostre reminiscenze di algebra (se non conoscete l’al¬ 
gebra, non disperatevi!) che, quando un numero dev’essere moltipli¬ 
cato per se stesso, per esempio tre volte, possiamo indicare ciò con 
un esponente. Se il numero fosse 2, potremmo scrivere l'espressione 
come 


2 3 


Come sarebbe scritta quest’espressione in BASIC usando il simbolo 
1? (Suggerimento: vedere i punti 2, 3 e 4). 


6. Scrivete gli operatori (simboli) che richiamano le seguenti operazioni 
aritmetiche: 

Divisione 


Elevazione a potenza 


Moltipl icazione 


7. Cancellate il programma in memoria. Battete 








ARITMETICA COL COMPUTER - GESTIONE DEI PROGRAMMI 49 


100 LET R=4+2*6 
110 LET B=<4+2>*6 
120 LET C=4+<2*6> 
130 PRINT R 
140 PRINT B 
150 PRINT C 
160 END 


1 due punti importanti di questo programma sono l’ordine in cui ven¬ 
gono eseguite le operazioni aritmetiche e l’effetto delle parentesi. Se 
guardate con attenzione, è chiaro che in ognuno dei calcoli delle ri¬ 
ghe 100, 110 e 120 sono coinvolti gli stessi numeri e le stesse opera¬ 
zioni. L’unica differenza è data dal raggruppamento con parentesi 
nelle righe. Avviate il programma e registrate quello che viene visua¬ 
lizzato. 


Ora cambiate le righe 100, 110 e 120: 

100 LET R=4+2*6/3 
110 LET B=<4+2>*6/3 
120 LET C=4+<2*6V3 


Eseguite il programma e scrivete i numeri visualizzati. 


Studiate il programma e i numeri che il computer ha presentato fino 
a quando capite quello che avviene nel programma. Ci sono delle re¬ 
gole molto specifiche che il computer usa in tali situazioni. Esamine¬ 
remo queste regole più avanti in questo capitolo. 


8. Cancellate il programma in memoria. Ora immettete il seguente pro¬ 
gramma: 


100 LET fl=3*100*100 

110 LET B=3*100*100*100 

120 LET 0=3*100*100*100*100 

130 LET D=3*100*100*100*100*100 

140 PRINT fi 

150 PRINT E 

160 PRINT C 

170 PRINT D 

180 END 
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Eseguite il programma e scrivetene qui sotto l’uscita. 


Sapete spiegare le varie forme in cui i numeri sono stati presentati? 
(Suggerimento: contate il numero degli zeri nei moltiplicatori delle ri¬ 
ghe 100. 110 e 120). 

9. Battete 


100 LET fl=4/<100*100> 

110 LET 1=4/<100*100#100> 

120 LET C=4/<100*100*100*100? 

125 LET E=4/(100*100#100*100*100) 
165 FRINT E 


Eseguite il programma e registratene qui sotto l’uscita. 


Ancora, avete capito quello che è successo? Contate gli zeri nei deno¬ 
minatori delle righe 100, 110, 120 e 125. 

10. Se in un numero presentato dal computer appare una E, che cosa si¬ 
gnifica? Spiegatelo con parole vostre. 


Se non capite ancora completamente lo scopo della notazione E, non 
preoccupatevi. Ci torneremo sopra più avanti. 

11. Passiamo ora ad esaminare come si archiviano e richiamano i pro¬ 
grammi dal dischetto. Prima però dovete imparare a formattare un 
disco. (Se non avete ancora installato il drive, seguite le istruzioni del 
manuale. Non dimenticate di spegnere il computer prima di installa¬ 
re il drive). Se volete invece registrare il programma su cassetta, leg¬ 
gete le istruzioni nella Guida di riferimento per il programmatore. 

12. Spegnete il computer e accendete il drive; ora riaccendete il compu¬ 
ter. Inserite il dischetto nel drive con la tacca sulla sinistra e l'eti¬ 
chetta verso l’alto. Chiudete lo sportellino del drive. Con il dischetto 
inserito battete (ma non premete return): 


OPEN 15,8,15, M NEW0:BRSIC,ZZ 
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Nota: Tutti i programmi e le informazioni su disco vanno persi se il 
dischetto è formattato premendo return. 

Ora premete return. 

13. Si accenderà la spia rossa sul drive e sullo schermo apparirà REA¬ 
DY. Il drive "ronzerà" per circa 70 secondi. Quando il rumore cesse¬ 
rà e la spia sarà spenta sarete pronti ad utilizzare il disco. Non pro¬ 
cedete fino a quando la luce rossa non si spegne. 

14. Cancellate la memoria e battete il seguente programma 

100 LET R=2 
110 LET B=3 
120 LET C=R*B 
130 PRINT C 
140 END 


15. Visualizzate il programma per assicurarvi che sia giusto, ed eseguitelo. 

16. Ora battete 

SflVE"PRODOTTO"/8 <RETURN> 

Cosa è successo? 


Così facendo si archivia il programma in memoria sul disco sotto il 
nome PRODOTTO. (Potete scegliere per un programma qualsiasi no¬ 
me lungo al massimo 16 caratteri.) 

17. Ora battete 

LORD"*"/3 <RETURN> 

per caricare il catalogo ($) del dischetto nel drive (8). Quando appare 
READY battete 


LIST <RETURN> 

per visualizzare il catalogo. Leggerete 
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0 

I "PRODOTTO" PRO 

663 BLOCKS FREE. 

READY. 

II programma PRODOTTO è ora sul dischetto. PRG sta per "program¬ 
ma”. II numero alla sinistra (1) indica la misura in blocchi (256 carat¬ 
teri) del programma PRODOTTO. La linea nera indica che il dischetto 
è stato intitolato BASIC, il suo ID è ZZ e la versione del sistema ope¬ 
rativo è 2A. (Confrontate con l’istruzione OPEN al punto 12). 

18. Cancellate la memoria battendo 

NEW <RETURN> 


Richiamate di nuovo l'elenco dei programmi sul disco. (Vedere il 
punto 17). I programmi sul disco sono stati cambiati in qualche modo 
quando il programma in memoria è stato cancellato? 


19. Battete NEW per cancellare il catalogo dalla memoria e battete il 
programma seguente 

100 LET D=2*6-S/4 
110 PRINT D 
120 END 

Eseguite il programma. Pensate ad un nome per questo programma 
che sia diverso da PRODOTTO; limitate il nome a 16 lettere dell'alfa¬ 
beto o meno. Scrivete il nome qui sotto. 


Spostate il programma in memoria sul disco sotto il nome che avete 
appena scritto qui sopra. (Vedi il punto 16). Ora visualizzate il pro¬ 
gramma in memoria. Il programma che avete archiviato or ora su di¬ 
sco è ancora in memoria? 


20. Richiamate l’elenco dei programmi archiviati sul disco. (Vedi il punto 
17). Vi sono i due programmi che avete appena immesso? 






ARITMETICA COL COMPUTER - GESTIONE DEI PROGRAMMI 53 


Dovremmo avere archiviato due programmi che sono stati appena 
immessi. Il nome del primo programma è PRODOTTO; il nome del se¬ 
condo è stato scritto al punto 19. Per semplificare la discussione, 
chiameremo questo secondo programma PROGRAMMA 19. Voi, natu¬ 
ralmente, dovrete usare il nome che avete scelto per il secondo pro¬ 
gramma. 

21. Per spostare PRODOTTO dal disco alla memoria battete 
LORD"PRODOTTO",8 CRETURfD 

Visualizzate questo programma e verificate che sia quello giusto. Ag¬ 
giungete la riga 125 al programma in memoria: 

125 PRINT "IL PRODOTTO E'" 

Visualizzate il programma e fatelo girare. Per sostituire il vecchio 
programma PRODOTTO sul dischetto con quello modificato in me¬ 
moria, battete 

SflVE"@0 : PRODOTTO",8 <RETURN> 

22. Cancellate il programma in memoria. Battete LIST per assicurarvi 
che non ci sia alcun programma in memoria. Ora spostate PRODOT¬ 
TO dal dischetto alla memoria e visualizzatelo. Spostate il PRO¬ 
GRAMMA 19 dal dischetto alla memoria. Visualizzate il programma 
in memoria. Quale dei due appare? 


Che cosa è successo al programma PRODOTTO che si trovava in me¬ 
moria quando abbiamo spostato il PROGRAMMA 19 in memoria dal 
disco? 


23. Spostate PRODOTTO in memoria col comando LOAD. (Vedere il pun¬ 
to 21). Togliete il programma PRODOTTO dal disco battendo 

CLOSE 15 

OPEN 15,8,15,"SCRRTCH0: PRODOTTO" 


Visualizzate il programma in memoria. Quando abbiamo cancellato 
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PRODOTTO dal disco, questo fatto ha modificato qualcosa in memo¬ 
ria? 


24. Richiamate l’elenco dei programmi archiviati sul disco. PRODOTTO 
non dovrebbe essere compreso nell'elenco, ma PROGRAMMA 19 vi si 
dovrebbe trovare. Esaminate l'elenco dei programmi. È lutto come 
dovrebbe essere? (Vedi il punto 17). 


25. Si noti che se ora cancelliamo la memoria, perderemo sia la copia di 
PRODOTTO che era sul disco (l’abbiamo tolta al punto 23), che la co¬ 
pia in memoria. Cancellate la memoria. (Vedi il punto 18). Visualizza¬ 
te il programma in memoria. È rimasto qualcosa in memoria? 


Provate a spostare PRODOTTO dal disco alla memoria. (Vedi il punto 
21). Che cosa è successo? 


Se la luce rossa del drive lampeggia è stato commesso un errore. I co¬ 
mandi SAVE e LOAD interromperanno la segnalazione d'errore. 
Cancellate PROGRAMMA 19 dal disco. (Vedi il punto 23). Togliete il disco 
dal drive, spegnete il computer, la TV e il drive. 


3.3 Analisi 

ARITMETICA COL COMPUTER 

Esaminiamo le cinque operazioni aritmetiche. Queste sono l'addizione, la 
sottrazione, la moltiplicazione, la divisione e l'elevazione a potenza 

I)- 

L operazione di elevazione a potenza è rappresentata dal simbolo t. Per¬ 
ciò 315 significa 3 elevato alla quinta potenza", che a sua volta significa 
3 moltiplicato per se stesso quattro volte, con il risultato di 243. 
Dobbiamo stare molto attenti a capire I ordine in cui le operazioni arit¬ 
metiche sono eseguite dal computer. Un esempio servirà ad illustrare 
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questo punto. Consideriamo la seguente espressione 

2 + 312/5-1 


Se il computer esaminasse semplicemente l’espressione da sinistra a de¬ 
stra, eseguendo le operazioni man mano che le incontra, il risultato sa¬ 
rebbe 2 più 3 (che fa 5), elevato alla seconda potenza (che fa 25), diviso 
per 5 (che fa 5) meno 1, dando una risposta di 4. Supponiamo però che 
l’addizione e la sottrazione siano eseguite per prime, poi l'elevazione a 
potenza, e poi la moltiplicazione e la divisione. Questo darebbe 5 elevato 
alla seconda potenza diviso per quattro. E quindi 5 elevato alla seconda 
potenza (che fa 25) diviso per quattro dà come risposta 6,25. 

Potremmo continuare applicando regole diverse per l'ordine delle opera¬ 
zioni aritmetiche e ottenere ogni volta risposte diverse. 11 fatto importan¬ 
te è che in BASIC ci sono regole ben definite per l'ordine e la priorità 
delle operazioni aritmetiche, e noi dobbiamo capirle. 

L’ordine delle operazioni è da sinistra a destra usando le regole di priori¬ 
tà qui sotto esposte. 

La priorità per le operazioni aritmetiche è 

1. elevazione a potenza 

2. moltiplicazione e divisione 

3. addizione e sottrazione 

Ora torniamo al nostro esempio di 

2 + 312/5-1 


ed esploriamo da sinistra a destra alla ricerca di un'elevazione a potenza. 
Dal momento che è indicata un'elevazione a potenza (312), questa verrà 
eseguita per prima. Ora l’espressione è 

2 + 9/5- 1 


Esplorando ancora da sinistra a destra, cerchiamo una elevazione a po¬ 
tenza e, non trovandone nessuna, cerchiamo le operazioni che hanno la 
priorità successiva (moltiplicazione e divisione). Subito dopo viene quindi 
eseguita la divisione, col seguente risultato: 

2 + 1.8 — 1 

Siccome non sono rimaste altre moltiplicazioni o divisioni nell'espressio¬ 
ne, esploriamo da sinistra a destra alla ricerca di addizioni e sottrazioni. 



56 ARITMETICA COL COMPUTER - GESTIONE DEI PROGRAMMI 


L’addizione dà 


3.8- 1 

e la sottrazione finale ci dà la risposta: 2.8. 

Ripassate le regole per l’ordine e la priorità delle operazioni aritmetiche 
fino a che queste diventino parte di voi stessi. Osserveremo di nuovo que¬ 
ste regole nella prossima sezione. 


PARENTESI NEI CALCOLI 

Le tegole per I ordine e la priorità delle operazioni aritmetiche non sono 
però tutto sull'argomento. Per rendercene conto, consideriamo il seguen¬ 
te esempio un po’ più complicato: 



((2 * 3 + 412) * 2 + 5) * (312 — 4) 


La differenza fra questa espressione e quelle che abbiamo studiato è 
l'uso delle parentesi per raggruppare delle parti dell’espressione. Analiz¬ 
zeremo questo esempio molto a fondo per mostrarvi come il computer af¬ 
fronti l’aritmetica. 

Il computer inizia esplorando da sinistra a destra e incontra la parentesi 
sinistra di B. Guarda dentro per vedere se ci sono altre parentesi sinistre 
e ne trova una per A. La parentesi successiva che incontra è la parentesi 
destra di A. A questo punto il computer ha isolato il primo gruppo di 
operazioni da fare nella parentesi A: 

2*3 + 412 

e lo calcola usando le regole sull’ordine e la priorità. Il risultato è 22 
(controllate). Ora il nostro problema è diventato 


B C 

rin 

(22* 2+ 5) *(312 —4) 
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Nella esplorazione successiva il computer isola le parentesi B, esegue i 
calcoli aritmetici che si trovano all'interno, e il problema è ora 

r c i 

49 ♦ (312 — 4) 


Siccome restano solo le parentesi C, il computer esegue le operazioni che 
vi si trovano all'interno, dando 


49*5 

che, dopo la moltiplicazione finale, dà come risultato 245. 

In conclusione, se le parentesi sono annidate, il computer esegue i calcoli 
partendo dal paio di parentesi più interne, lavorando da sinistra a destra. 
Quando un gruppo di parentesi è stato eliminato, le operazioni aritmeti¬ 
che al suo interno vengono eseguite secondo le regole sull’ordine e la 
priorità già date. Una buona regola da seguire è che, se vi può essere 
qualche confusione circa il modo in cui il computer calcola un espressio¬ 
ne, è meglio usare delle parentesi in più. Troppe non laranno del male, 
ma troppo poche certamente causeranno dei guai. 


NOTAZIONE ESPONENZIALE 

I numeri sono talvolta stampati in quella che è conosciuta come notazio¬ 
ne esponenziale o notazione E. Esempi di notazione E sono 2.14E + 06 o 
6.032E —07. 

È facile vedere perché questa notazione particolare è necessaria sia per 
numeri molto grandi sia per numeri molto piccoli. Il computer di solito 
stampa nove cifre per numero. Il problema sorge quando vogliamo che il 
computer stampi una variabile il cui valore è ad esempio, 45612800000, 
che richiederebbe undici cifre. Il computer la stamperebbe come 4.56128E 
+ 10, che significa che il punto decimale deve andare dieci posti più a de¬ 
stra rispetto alla sua presente posizione. Una variabile il cui valore sia 
8956000000000 sarebbe stampata come 8.956E+12. L'E+12 significa che 
il punto decimale deve andare dodici posti più a destra. Nello stesso mo¬ 
do possiamo anche rappresentare numeri piccolissimi. Una variabile il 
cui valore sia 0.0000000683 sarebbe presentata come 6.83E-08. L’E-08 si¬ 
gnifica che il punto decimale deve andare otto posti più a sinistra. La ta¬ 
vola seguente dovrebbe aiutarvi a capire come passare dalla forma deci¬ 
male alla notazione E o tornare dalla notazione E alla forma decimale. 
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Forma decimale 


Notazione E 


2630000 

263000 

26300 

2630 

263 

26.3 

2.63 

0.263 

0.0263 

0.00263 

0.000263 

0.0000263 

0.00000263 


2.63E + 06 
2.63E + 05 
2.63E + 04 
2.63E + 03 
2.63E + 02 
2.63E + 01 
2.63 

2.63E-01 

2.63E-02 

2.63E-03 

2.63E-04 

2.63E-05 

2.63E-06 


Per passare dalla notazione E alla forma decimale, osservate il segno che 
segue la E. Se il segno è +, spostate il punto decimale a destra di tanti 
posti quanti sono indicati dal numero che segue il +. Se il segno dopo la 
E è -, spostate il punto decimale a sinistra. Per passare da un numero 
decimale alla notazione E, capovolgete semplicemente il procedimento. 
In realtà non dovreste preoccuparvi troppo della notazione E, perché la 
userete raramente quando imposterete i vostri programmi sul computer. 
Il motivo principale per cui se ne è parlato è che può capitare che il com¬ 
puter emetta dei numeri in notazione E. Di conseguenza, dovrete essere 
in grado di riconoscere quello che sta succedendo. 


FORMATTARE UN DISCHETTO 

La formattazione di un dischetto si esegue una sola volta nel modo se¬ 
guente: si inserisce il dischetto nel drive con la tacca a sinistra e l’eti¬ 
chetta verso l’alto; si chiude lo sportellino del drive, si batte: OPEN 15, 8, 
15, "NEW0: nome del dischetto, ID” e si preme return. Quando cessa il 
ronzio si è pronti a immettere le informazioni sul dischetto. OPEN 15, 8, 
15 stabilisce un canale di comunicazione (15) dal computer al drive (unità 
n. 8) per trasmettere l’istruzione "NEVVO: nome del dischetto, ID”. ID può 
essere composto da due caratteri qualsiasi. 


ARCHIVIAZIONE E RICHIAMO DI PROGRAMMI 

Quando si spegne il computer, si perde il programma in memoria. Se tut¬ 
te le volte che accendiamo il computer dovessimo battere i programmi 
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che vogliamo usare, si farebbe ben poco lavoro. Fortunatamente, il C-64 
vi permette di battere programmi lunghi o complicati, provarli e correg¬ 
gerne gli errori, e poi registrare tali programmi su un disco formattato 
per usi futuri. Abbiamo solo bisogno di accendere il drive, la TV e il com¬ 
puter, e poi ricuperare qualunque programma che si sia prima registrato. 
Possiamo non aver bisogno di tenere un certo programma per sempre sul 
disco. Esiste un comando per cancellare un programma dal disco. Se spo¬ 
state una copia del programma da un disco in memoria e poi cancellate 
la copia che c'è sul disco, la copia che è in memoria non viene toccata. 
Allo stesso modo, potete avere un programma in memoria e cancellare 
un altro programma che si trova sul disco senza alterare il programma 
in memoria. Ricordate che richiamare dal disco un programma o l’elenco 
dei programmi cancella il programma attualmente in memoria. 

I comandi per eseguire questi compiti di gestione dei programmi sono 
forniti qui di seguito. 

Per spostare un programma dalla memoria ad un archivio su disco 
battere 

SAVE"nome del programma”,8 

Per spostare un programma da un archivio su disco alla memoria bat¬ 
tere 

LOAD M nome del programma”,8 

Per cancellare un programma dal disco battere 
OPEN 15,8,15,"SCRATCHO: Nome del programma” 

Per visualizzare l’elenco dei programmi sul disco battere 

LOAD "$”,8 

LIST 

II comando SAVE non permette di registrare su programmi già memoriz¬ 
zati sul dischetto. Per sostituire un programma su dischetto con un pro¬ 
gramma in memoria, battete: 

SAVE”@0 :nome del programma ",8 

In alternativa potete cancellare (SCRATCH) il programma dal disco e usa¬ 
re SAVE. 

Può capitare incidentalmente di perdere dei programmi memorizzati, 
perciò è sempre conveniente farne una copia su un altro dischetto. 

A volte, usando l’istruzione OPEN, può apparire il messaggio FILE OPEN 
ERROR: in questo caso battete CLOSE 15 e di nuovo OPEN. 

È possibile anche usare una cassetta per l'archiviazione dei programmi 
con il Datassette. Troverete le istruzioni dei comandi SAVE e LOAD sul 
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manuale del C-64. L’uso delle cassette è più lento e meno affidabile di 
quello dei dischetti. 

3.4 Test di apprendimento 

1. Scrivere i simboli che sono usati per eseguire le seguenti operazioni 
aritmetiche nelle espressioni BASIC: 

a. Moltiplicazione 


b. Elevazione a potenza 


c. Divisione 


2. Quando le espressioni aritmetiche vengono calcolate, esiste una prio¬ 
rità delle operazioni. Qual è questa priorità? 

a. 1° 


b. 2° 


c. 3° 


3. Quale operazione aritmetica è eseguita per prima in questa istruzio¬ 
ne in modo diretto? 


FRINT(3+5? t2 
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4. Quando esplora le espressioni aritmetiche il computer ricerca in una 
direzione specifica. Qual è questa direzione? 


5. Scrivete un'istruzione BASIC per calcolare la seguente espressione. 
Date alla riga il numero 100. 


A = (4 + 3B/D) 2 


6. Se il seguente programma venisse eseguito, che cosa sarebbe stampa¬ 
to? 


100 LET fi=2 

110 LET B=3 

120 LET 0-<.f\VB+2')/2 

130 FRINT C 

146 END 


7. Convertite nella notazione E i seguenti numeri, 
a. 5160000000 


b. 0.0000314 


8. Convertite in forma decimale i seguenti numeri, 
a. 7.258E + 06 


b. 1.437E-03 


9. Date l'ordine in cui le operazioni nell’espressione seguente verranno 
eseguite dal computer. 
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100 LET fl=(6/3+4)12 

10. Quali comandi sono necessari per eseguire le seguenti operazioni: 

a. Spostare un programma dal disco alla memoria. 


b. Spostare un programma dalla memoria al disco. 


c. Cancellare un programma dal disco. 


d. Cancellare un programma dalla memoria. 


e. Visualizzare il programma in memoria. 


f. Eseguire il programma in memoria. 

g. Visualizzare i nomi di tutti i file archiviati sul disco. 


11. Supponete di star battendo una riga di programma sul computer e di 
non aver ancora premuto return. Come si corregge un unico carattere? 












Capitolo 

Input, output e 
semplici applicazioni 


4.1 Obiettivi 

In questo capitolo vedremo in pratica come si scrivono i programmi. Au¬ 
menteremo anche la nostra conoscenza del BASIC osservando alcuni det¬ 
tagli circa l’ingresso (input) e l’uscita (output) dei dati. Gli obiettivi sono 1 
seguenti: 

IMMISSIONE DI NUMERI IN UN PROGRAMMA BASIC 

Vi sono tre modi di immettere numeri nel computer per un programma 
BASIC. Dal momento che il computer tratta principalmente numeri, è ne¬ 
cessario che sappiamo come immetterli. 



STAMPA DI VARIABILI E STRINGHE 

Dopo che le informazioni sono state calcolate, devono essere presentate. 
Di solito vogliamo avere in uscita sia stringhe di caratteri, che numeri. 
L’uscita delle stringhe è trattata essenzialmente allo stesso modo 
dell’uscita dei numeri, ma richiede una speciale attenzione. 
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SPAZIATURA DELL’OUTPUT 

II computer mette gli spazi in uscita in maniera standard. Imparerete co¬ 
me modificare questi spazi. 


L’ISTRUZIONE REM 

Il programmatore prudente inserisce dei commenti nei suoi programmi 
come aiuto per spiegare o interpretare quello che si sta facendo. L'istru¬ 
zione REM in BASIC ci permette di fare questo. 


ESEMPI DI PROGRAMMI 

Il nostro scopo ultimo è quello di imparare a scrivere e controllare i pro¬ 
grammi, correggendone gli eventuali errori. In questo capitolo comince- 
remo con qualche compito piuttosto facile. 


4.2 Esercizi di scoperta 


1. Accendete il computer e la TV. Immettete il seguente programma: 

100 INPUT fi 
110 INPUT B 
120 INPUT C 
130 LEI D=H+£+C 
140 PRINT D 
150 END 


Che cosa pensate che avverrà quando eseguite questo programma? 


Eseguite il programma. Quando compare il primo punto interrogati¬ 
vo (il segnale dell’input per A), battete 2. Quando compare il secondo 
punto interrogativo, battete 3, e infine, all’ultimo punto interrogati¬ 
vo, battete 5. Registrate qui sotto quello che succede. 


2. Si noti come nel programma al punto 1 abbiamo tre istruzioni di in¬ 
gresso (INPUT), alle righe 100, 110 e 120. Battete 
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100 

110 


Che cosa succede al programma? 


Visualizzate il programma in memoria e controllate se avevate ragio¬ 
ne. Quindi battete 

120 INPUT fu B j C 

Visualizzate il programma. Che cosa è successo? 


3. Eseguite il programma e quando compare il segnale di input (?), bat¬ 
tete 

3 / 5 


Che cosa è successo? 


Si può immettere in ingresso più di una variabile alla volta in un pro¬ 
gramma BASIC? 


4. Eseguite il programma e quando compare il segnale di input, battete 


Che cosa è successo? 


Che cosa sta aspettando il computer? 
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Battete 

2 , J , 5 

e segnate qui sotto quello che succede. 


Notate che il 2 in 2, 3, 5 è usato come terzo input mentre il 3 e il 5 
vengono ignorati. 

5. Eseguite il programma e quando il segnale di input compare, battete 

2 , 3 , 5 , 1 

Che cosa è successo? 


6. Potete immettere più numeri di quanti sono richiesti da un'istruzione 
INPUT? 


Che cosa succede se lo fate? 


7. Potete immettere meno numeri di quanti sono richiesti da un’istru¬ 
zione INPUT? 


Che cosa succede se lo fate? 


8. Battete 

120 READ Fl,B,C 

Visualizzate il programma. Che cosa è successo? 
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Eseguite il programma e registrate quello che succede. 


9. Ora battete 
125 DATO 2,3,5 


e visualizzate il programma. Che cosa è successo? 


IO. Eseguite il programma e registrate qui sotto quello che succede. 


Da quello che avete appena visto, potete desumere che tutte le volte 
che un programma BASIC contiene un'istruzione READ ( "leggi”), 
dev’esserci nel programma un altro tipo di istruzione. Qual è questa 
istruzione? 


11. Indicate due diversi metodi (aH’infuori di un’istruzione LET) per im¬ 
mettere numeri in un programma. (Suggerimento: vedere i punti 2 e 8). 


12. Visualizzate il programma in memoria. Cancellate l’istruzione DATA. 
Battete 

145 DRTfi 2,3,5 

e visualizzate di nuovo il programma. Che cosa è successo? 

13. Eseguite il programma e segnate qui sotto l’uscita. 


Secondo voi, cambia qualcosa se si modifica il posto dell’istruzione 
DATA nel programma? 
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14. Cancellate il programma in memoria. Immettete il seguente 


100 REfiD fi,B 
110 LET C=fl/B 
120 PRINT C 
130 GOTO 100 

140 DATA 2,1,6,2,90,9,35,7 
150 END 


Che cosa pensate che succeda se eseguite il programma? 


Provatelo e vedete un po' se avevate ragione. Scrivete l'uscita. 


Il messaggio OUT OF DATA (non ci sono più dati) è associato 
all'istruzione READ o all’istruzione DATA? 


15. Cancellate l’istruzione DATA nella riga 140 del programma. Ora im¬ 
mettete le seguenti istruzioni: 

165 IifìTlì 10*2 
115 URTA 100*50 
125 DATA 50,5 

Visualizzale il programma in memoria. Che cosa è successo? 


16. Se si esegue il programma, che cosa pensate che sarà visualizzato? 


Eseguite il programma e vedete se avevate ragione. Scrivete qui sotto 
l’uscita. 


17. Si può avere più di un’istruzione DATA in un programma BASIC? 
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Vi sembra che la posizione delle istruzioni DATA nel programma ab¬ 
bia qualche influenza? 


18. Cancellate il programma in memoria. Immettete il programma se¬ 
guente 

100 LET fl—10 
110 PRINT H 
120 END 

Che cosa succederà se si avvia il programma? 


Eseguite il programma e registrate qui sotto che cosa è successo. 


19. Ora battete 
110 PRINT "fi" 

e visualizzate il programma in memoria. Che cosa è successo? 


Che cosa succederà se si esegue il programma? 


Avviate il programma e registrate quello che il computer ha visualiz¬ 
zato. 


20. Battete 

110 PRINT "CANE Dfi CACCIA = ";fi 

e visualizzale il programma in memoria. Che cosa pensate che acca¬ 
drà se eseguite il programma? 
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Avviate il programma e scrivete quello che è successo. 


21. Ora proviamo un aspetto diverso. Battete 
110 PRINT "B = “;fl 

Visualizzate il programma e studiatelo attentamente. Se il program¬ 
ma viene avviato, che cosa pensate che succederà? 


Provatelo e vedete se avevate ragione. Registrate qui sotto l’uscita. 


22. La riga seguente è più lunga dei 40 spazi disponibili su una riga di 
schermo. Non premete return quando arrivate alla fine dello scher¬ 
mo, e continuate a battere: 

90 REM QUESTO E'' UN PROGRAMMA DIMOSTRATIVO 
Visualizzate il programma. Che cosa è successo? 


Le righe di programma non devono essere più lunghe di 2 righe di 
schermo (80 caratteri). Eseguite il programma. Com'è l’uscita? 


L’istruzione REM della riga 90 ha qualche effetto sul programma? 


23. Cancellate il programma in memoria. Immettete il seguente program¬ 
ma: 


100 REM PROGRAMMA DI CONVERSIONE METRICA 
110 REM CONVERTE LE LIBBRE IN GRAMMI 
120 PRINT ’• IMMETTERE N.DI LIBBRE", 

130 INPUT P 
140 LET G=454*P 









INPUT, OUTPUT E SEMPLICI APPLICAZIONI 71 


150 PRINT Pj “LIBBRE SONO" ; G; "GRAMMI " 

166 GOTO 120 
170 END 

Visualizzate il programma e verificate che sia giusto. Studiatelo at¬ 
tentamente e cercate di pensare quello che accadrà se fosse eseguito. 
Ora avviate il programma. Quando il messaggio di ingresso viene vi¬ 
sualizzato, immettete un numero a piacere. Notate quello che viene 
presentato in risposta. Ripetete varie volte questo procedimento, poi 
fate uscire il computer dall’iterazione di ingresso. Se avete dimenti¬ 
cato come si fa, vedete il Capitolo 2 al punto 22 degli Esercizi di sco¬ 
perta. Qual è lo scopo dell’istruzione REM? 


24. Battete 


115 INPUT P 
130 

160 GOTO 115 


e quindi visualizzate il programma in memoria. Che cosa è successo? 


Il programma funzionerebbe in questa forma? 


Eseguite il programma e, al messaggio di input, battete 1. Che cosa è 
successo? 


Fate uscire il programma dall'iterazione di input. 

25. Facciamo ancora qualche altro esperimento con questo programma. 
Cancellate il programma dalla memoria e immettetelo di nuovo, mo¬ 
dificato come segue: 


100 REM PRQGRRMMR DI CONVERSIONE METRICA 
110 REM CONVERTE LE LIBERE IN GRAMMI 
120 PRINT "IMMETTERE N.UI LIBBRE 
130 INPUT P 
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140 FRI NT Pi" LIBBRE SONO "iGi" GRRMMI" 
150 LET G=454*P 
160 GOTO 120 
170 END 


Il programma può essere eseguito in questa torma? 


Avviate il programma e, al messaggio di input, battete 2. Che cosa è 
successo? 


Spiegate con parole vostre che cosa c’è che non va. Ricordate che, se 
una variabile non viene inizialmente definita nel programma, il com¬ 
puter la porrà uguale a zero. 


Fate uscire il programma dall’iterazione di input. 


26. Cancellate il programma dalla memoria. Immettete il seguente: 


100 PERII R 
110 PRINT R 
120 GOTO 100 

130 DRTR 10,12,8,9,112233445566,-82,5,6 
140 END 


Eseguite il programma e registrate quello che avviene. 


27. Battete 

110 PRINT R, 

Notate che tutto quello che abbiamo fatto è stato di inserire una vir¬ 
gola dopo la A nella 110. Eseguite il programma. Sono allineati i nu¬ 
meri sulle ultime due colonne? 
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28. Ora sostituite la virgola dopo la A con un punto e virgola battendo 
110 PRINT fl; 

Eseguite il programma e registrate quanto avviene. 


29. Se una variabile in un’istruzione PRINT non è seguita da alcun segno 
di interpunzione, come mette gli spazi in uscita il computer? (Sugge¬ 
rimento: vedere il punto 26). 


E se la variabile è seguita da una virgola? 


Che cosa succede se la variabile è seguita da un punto e virgola? 


30. Cancellate il programma dalla memoria ed immettete il programma 
seguente: 


100 LET R=15 

110 RERD B 

120 PRINT TRE';R>,E, 

130 LET fl=fl+10 

140 GOTO 110 

150 IiRTR 1, 2j 3 

160 END 


Eseguite il programma e registrate quello che avviene. 


31. Battete 

130 LET fl=R+5 

Eseguite il programma e scrivete quello che è successo. 
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32. Battete 

130 LET fl=fì+20 

Eseguite il programma e segnate quello che è successo. 


33. Che cosa sembra controllare il TAB nell’istruzione di stampa? 


34. Con questo si conclude per ora il lavoro sul computer. Spegnete il 
computer e la TV. 


4.3 Analisi 

In questo capitolo abbiamo cominciato a staccarci dalla pura meccanica 
del controllo del computer. Ci concentriamo ora invece sulla scrittura e 
sul controllo dei programmi. Quest'abilità non viene naturale alla mag¬ 
gior parte delle persone e per questo riserveremo all'argomento molta at¬ 
tenzione, sia adesso, che nei capitoli seguenti. 


IMMISSIONE DI NUMERI IN UN PROGRAMMA BASIC 

Nel Capitolo 2 abbiamo visto uno dei modi per immettere i numeri nei 
programmi, assegnando cioè dei valori ad una variabile nel programma 
stesso. Per esempio 

160 LET R=6 

introduce il valore 6 in un programma e memorizza il numero sotto il no¬ 
me di variabile A. Questo metodo ha dei limiti. Abbiamo bisogno di esa¬ 
minare altri modi in cui i numeri possono essere introdotti in un pro¬ 
gramma BASIC. Vediamo prima l'istruzione INPUT e come viene usata. 
Un esempio potrebbe essere 

260 INPUT G 

Quando il computer esegue questa riga, visualizzerà un punto interroga¬ 
tivo per segnalare che aspetta un ingresso di dati, quindi si ferma e 
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i 


aspetta che battiate il numero e return. Nel caso suddetto il numero bat¬ 
tuto sarà conosciuto come G. 

In un’unica istruzione INPUT può essere richiamata più di una variabile, 
come 

420 INPUT fl,E,C,D 

In questo caso viene presentato lo stesso segnale di input (il punto inter¬ 
rogativo), ma ora il computer si aspetta che siano battuti quattro numeri 
separati da virgole. Se sono immessi solo tre numeri (o meno) e viene 
premuto il tasto return il computer risponderà con "??”. Se vengono im¬ 
messi inizialmente più di quattro numeri, comparirà il messaggio: EX¬ 
TRA IGNORED. 

L’ultimo metodo per fornire numeri in ingresso al computer è con le 
istruzioni READ e DATA. L’istruzione 

160 READ A,B,C,B 

è trattata dal computer allo stesso modo dell’istruzione INPUT, ma con 
due differenze. Primo, il computer non si ferma. Non ce ne bisogno, co¬ 
me vedremo. Secondo, i numeri richiesti sono letti nelle istruzioni DATA 
contenute all’interno del programma, invece di essere immessi al termi¬ 
nale in risposta ad un segnale di input. 

Il programma seguente illustra le istruzioni READ e DATA. 

100 READ A,B,C,D 
110 LET E=A+B+C+D 
120 PRINT E 
130 DATA 25,3,17, 12 
140 END 

Il programma legge quattro numeri dalla riga DATA e stampa la somma 
dei numeri. Non fa differenza dove si trova l’istruzione DATA nel pro¬ 
gramma. Ci può essere più di una istruzione DATA, e queste non hanno 
bisogno di essere raggruppate assieme nello stesso posto nel programma. 
Man mano che i numeri sono richiamati da istruzioni READ, vengono 
presi in ordine nelle istruzioni DATA, a partire dalla riga DATA con il nu¬ 
mero più basso. Se l'istruzione READ richiede altri numeri dopo che so¬ 
no stati usati tutti quelli disponibili nelle istruzioni DATA, il computer 
emetterà un messaggio OUT OF DATA e quindi si fermerà. 

Per riassumere, ci sono tre metodi per introdurre numeri nei programmi 
BASIC. Usare 1) le istruzioni LET, 2) le istruzioni INPUT, 3) le istruzioni 
READ e DATA. Ci sono occasioni in cui ciascuno di questi tre metodi può 
essere usato con profitto. Vi familiarizzerete con i vantaggi e gli svantag- 
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gi di ciascun metodo man mano che dedicherete più tempo alla program¬ 
mazione. 

Si possono immettere numeri in un programma BASIC con: 

1) LET 

2) INPUT 

3) READ/DATA 


STAMPA DI VARIABILI E STRINGHE 

Il computer può emettere o il valore numerico di una variabile (un nume¬ 
ro) o una stringa di caratteri. Per illustrare ciò, supponiamo di avere una 
variabile chiamata X e che il numero 2 sia memorizzato in quella posizio¬ 
ne di memoria. Il programma 

100 LET X=2 
110 PRINT “X" 

120 PRINT X 
130 END 


mostra la differenza fra l'uscita di una stringa e quella di una variabile. 
La riga 110 emette il carattere X perché X è racchiuso fra virgolette. La 
riga 120 stampa 2 perché quello è il numero memorizzato nella posizione 
di memoria X. 

La regola è chiara. I caratteri contenuti fra virgolette sono chiamati 
stringhe. Le stringhe vengono emesse esattamente come sono elencate. Il 
computer non tenta di analizzare o di scoprire quello che ce in una strin¬ 
ga. Se una variabile in un’istruzione PRINT non è contenuta fra virgolet¬ 
te, il computer stampa il valore numerico di quella variabile. 

È possibile fare calcoli in un’istruzione PRINT. Così 

100 PRINT R+E+CLD 

farà sì che il computer emetta la somma dei numeri memorizzati in A, B 
e C, e poi il numero memorizzato in D. Naturalmente le variabili A, B. C 
e D devono essere state prima definite, altrimenti il computer assegnerà 
loro valore zero. 


SPAZIATURA DELL’OUTPUT 

11 BASIC C-64 ha un meccanismo di spaziatura "incorporato" che stampa 
i numeri in posti prefissati sulla riga. Quando le quantità in un’istruzione 
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PRINT sono separate da virgole il computer usa la spaziatura standard. 
Le quattro posizioni standard di stampa sono 0, 10, 20 e 30. Il primo spa¬ 
zio di ciascun numero è quello per il segno -, se è necessario. La virgola 
segnala al computer di spostarsi alla successiva posizione di stampa sul¬ 
la riga. Se il computer si trova già nelPultima posizione sulla riga e si im¬ 
batte in una virgola in un’istruzione PRINT, allora effettua un ritorno 
carrello e stampa il numero della prima posizione della riga successiva. 
Così se A, B, C, D e E sono numeri interi 


100 PRINT R,B,C,D,E 


farà sì che i valori numerici di A, B, C, D, siano stampati spaziati unifor¬ 
memente lungo una riga nelle 4 posizioni standard. Il valore numerico di 
E sarebbe stampato sotto il valore di A sulla riga successiva. 

Se A, B, C, D e E sono numeri che richiedono una notazione esponenziale 
lunga, A e B saranno stampati sulla prima riga, C e D sulla seconda nelle 
due posizioni standard, mentre E sarà stampato sulla 3 a riga sotto A e C. 


Le virgole nelle istruzioni PRINT producono colonne allineate 


Il punto e virgola produce una spaziatura più ristretta della spaziatura 
standard. Per esempio l’uscita di 


10Q PRINT rjb;c;d;e 


produce una spaziatura minore rispetto a un’istruzione PRINT con virgo¬ 
le. Il punto e virgola fa lasciare al computer uno spazio per i numeri ne¬ 
gativi e due per quelli positivi. Due o più numeri possono essere messi su 
una riga a seconda della loro misura e formato. 

Infine, possiamo controllare la spaziatura su una riga più precisamente 
con la funzione TAB nelle istruzioni PRINT. La funzione TAB lavora allo 
stesso modo del posizionamento del tabulatore su una macchina da scri¬ 
vere. Sullo schermo ci sono quaranta posizioni disponibili per il tabulato¬ 
re (0-39), cominciando alla posizione TAB 0. 

L’istruzione 

100 PRINT TftB<5>jfiiTRBC25>JE 
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segnala al computer di spaziare fino alla 5 a posizione di stampa, stampa¬ 
re il valore numerico di A (nella 6 a ), spaziare fino alla venticinquesima 
posizione, e infine stampare il valore numerico di B. Se B ha troppe cifre 
da inserire sulla riga, il calcolatore metterà B all'inizio della linea suc¬ 
cessiva, se c’è una virgola prima di B. Se B è preceduto da un ; le cifre 
ulteriori saranno messe sulla riga successiva. 

È anche possibile avere un posizionamento variabile del tabulatore, con¬ 
trollato dal computer: 

100 FRINT TRBCX);R 

Qui il computer deve prima cercare il valore di X, quindi spaziare fino 
alla posizione di stampa determinata dall’intero più grande in X (per 
esempio, se X = 23.1435, il computer spazierà fino alla ventitreesima po¬ 
sizione di stampa), quindi metterà il valore numerico di A nella venti¬ 
quattresima posizione di stampa. 

Usare la funzione TAB per produrre spaziature variabili 

Un ultimo commento circa l’istruzione PRINT. Possiamo produrre una 
spaziatura verticale nell’uscita usando un’istruzione PRINT vuota, come 
segue: 

100 PRINT 

Il computer va a cercare la quantità che dev'essere stampata e non ne 
trova. Cerca quindi la punteggiatura e, non trovandone alcuna, ordina un 
ritorno carrello e fa "avanzare la carta’’ di una riga. Se volessimo due o 
tre righe vuote in uscita, potremmo ottenere la spaziatura usando due o 
tre istruzioni PRINT vuote. 


L’ISTRUZIONE REM 

L'istruzione REM (REMark significa "commento”) è molto diversa dalle 
istruzioni che abbiamo visto prima. Non appena il computer legge i ca¬ 
ratteri REM dopo il numero di riga, ignora il resto dell’istruzione e passa 
alla riga successiva. L’istruzione REM è un modo di fornire informazioni 
a beneficio del programmatore o di qualcuno che legga il programma. 
Queste informazioni rendono molto piu facile seguire quello che sta suc¬ 
cedendo nel programma. 

Per illustrare 1 uso delle istruzioni REM esaminiamo due programmi. En¬ 
trambi produrranno risultati identici, ma il secondo usa delle istruzioni 
REM per descrivere quello che succede nel programma. Potete giudicare 
da voi stessi quale dei due programmi sia più facile da capire. 
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1. Nessuna istruzione REM: 


100 INPUT A,B,C,D 
110 LET X=<A+B+C+D>/4 
120 PRINT X 
130 END 


2. Con istruzioni REM: 


100 REM CALCOLA LA MEDIA DI QUATTRO NUMERI 

110 REM INSERISCE I QUATTRO NUMERI 

120 INPUT A,B,C,D 

130 REM CALCOLA LA MEDIA 

140 LET '/.=C A+B+C+D )/4 

150 REM STAMPA LA MEDIA 

160 PRINT X 

170 END 


4.4 Esempi di programmi 

Nei prossimi capitoli passeremo progressivamente più tempo scrivendo e 
provando i programmi. Gli esempi scelti per questo capitolo sono molto 
semplici, ma illustrano le idee che abbiamo esposto. Studiate ogni esem¬ 
pio attentamente fino a quando siete certi di averne capito tutti i detta¬ 
gli. Non sarà male immettere i programmi nel computer ed eseguirli per 
verificare che funzionino a dovere. 


ESEMPIO 1 — PREZZI UNITARI 

Il nostro problema è quello di scrivere un programma che calcoli i prezzi 
unitari delle merci di un supermercato. Chiameremo T il prezzo totale, N 
il numero dei pezzi e U il prezzo unitario. Possiamo calcolare il prezzo 
unitario come segue. 


U = T/N 

Per esempio, supponiamo il caso che dodici lattine di succo di frutta co¬ 
stino 6960 lire. Il costo unitario per lattina sarà 


U = 6960/12 = 580 lire 
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Vogliamo che il programma sia ideato in modo che quando venga esegui¬ 
to produca l'uscita seguente: 

QUAL È IL PREZZO TOTALE? (Si immette il valore di T) 

QUAL È IL NUMERO DEI PEZZI? (Si immette il valore di N) 

IL PREZZO UNITARIO È (Il computer visualizza il valore di U) 


Ora esamineremo questo esempio per vedere come il programma è colle¬ 
gato con quello che vogliamo vedere in uscita. 

QUAL È IL PREZZO TOTALE? (Immissione di T) 

100 200 

QUALE IL NUMERO DEI PEZZI? (Immissione di N) 

300 400 

500: (Calcola il prezzo unitario) 

IL PREZZO UNITARIO È (Uscita di U) 

600 

700: (Fine del programma) 


Scriveremo ciascuna riga del programma in modo che i numeri sotto le 
varie parti siano i numeri di riga del programma. Nella riga 100 voglia¬ 
mo che il computer visualizzi il messaggio indicato. Questo si ottiene con 
il comando PRINT. 

100 PRINT "QUfiL E'' IL PREZZO T0TRLE ", 

Si noti il punto e virgola fuori delle virgolette. Il motivo di ciò è che non 
vogliamo un ritorno carrello, ma vogliamo che la riga stampata stia lì in 
attesa del segnale dell’input. La riga 200 dovrebbe essere un’istruzione 
INPUT per chiedere l’immissione di T. 

200 INPUT T 

Il messaggio della riga 300 richiede un’istruzione PRINT. 

306 PRINT "QURL E' IL NUMERO DEI PEZZI "J 

L’immissione del numero totale dei pezzi è trattata allo stesso modo del 
prezzo totale. 

460 INPUT N 

Poi si calcola il prezzo unitario nella riga 500. 
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500 LET U=T/N 

La riga successiva è un messaggio seguito dal prezzo unitario, ed è risol¬ 
ta con un’istruzione PRINT. 

600 PRINT "IL PREZZO UNITARIO E' ";U 

Infine abbiamo l’istruzione END. 

700 END 

Ora mettiamo insieme tutto il programma. 


100 PRINT "QUAL E" IL PREZZO TOTALE "i 
200 INPUT T 

300 PRINT "QUAL E' IL NUMERO DEI PEZZI "1 
400 INPUT N 
500 LET IJ=T/N 

600 PRINT "IL PREZZO UNITARIO E' "JU 
700 END 


ESEMPIO 2 — CONVERSIONE DELLA TEMPERATURA 

La relazione fra la temperatura misurata in gradi Fahrenheit e in gradi 
Celsius è 

C = (5/9)(F —32) 


dove C sta per gradi Celsius e F sta per gradi Fahrenheit. Se, per esem¬ 
pio, F è 212, allora C sarà 

C = (5/9X212-32) = 100 


Come nel primo esempio, scriveremo il programma dopo aver visto come 
vogliamo che appaia l’uscita. 


IMMETTERE N. GRADI F 
? (Si immette il valore di F) 

(Valore di F) GRADI F EQUIVALE A (Risposta) GRADI C 
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Ancora una volta divideremo l’uscita in parti che saranno generate dalle 
righe del programma: 

IMMETTERE N. GRADI F 

100 

200: Immissione di F 
300: Calcola i gradi C 

(Uscita di F) GRADI F EQUIVALE A (Uscita di C) GRADI C 
400 

500: (Fine del programma) 

Il programma corrispondente è 


109 PRINT "IMMETTERE N. GRRDI F " 

200 INPUT F 

300 LET C=C5/9;'*<F-32> 

400 PRINT Fi" GRADI F EQUIVALE A ",Ci" GRADI C" 
500 END 


Questo programma è un po' diverso dal precedente. Nella riga 100 non vi 
è punteggiatura dopo la stringa. Così il segnale di input generato 
dall'istruzione INPUT nella riga 200 sarà visualizzato nella riga che segue 
la stringa iniziale. L’istruzione PRINT della riga 400 emette: 1) il valore 
di F, 2) una stringa, 3) il valore di C, 4) una seconda stringa. I punti e vir¬ 
gola sono usati nella riga 400 per collegare le variabili e le stringhe 
nell'istruzione PRINT. 


ESEMPIO 3 — SOMMA E PRODOTTO DI NUMERI 

L'esempio finale di questo capitolo riguarda il calcolo della somma e del 
prodotto di due numeri. Ancora una volta scriveremo il programma per 
ottenere l’uscita desiderata. 

INPUT A? (Si immette il valore di A) 

INPUT B? (Si immette il valore di B) 

LA SOMMA DI A E B È (Il computer visualizza la somma) 

IL PRODOTTO DI A E B È (Il computer visualizza il prodotto) 
(Vengono inserite dal computer delle righe vuote) 

INPUT A? (Si immette il valore di A) 

(ecc.) 

Con questo problema procederemo più rapidamente. La prima riga 
dell uscita desiderata può essere risolta con le due istruzioni seguenti: 
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100 PRIHT "INPUT R 
110 INPUT R 


Si noti attentamente che il messaggio stampato nella riga 100 è solo di 
aiuto per l’utente; l’istruzione di immissione importante per il computer 
è nella riga 110. 

Generiamo la seconda riga dell’uscita desiderata come segue: 

120 PRINT "INPUT E 
130 INPUT E 


La somma e il prodotto di due numeri sono emessi nel modo seguente: 

140 PRINT "LR SOMMA DI fi E E E' " ; fl+B 
150 PRINT "IL PRODOTTO DI fi E E E' " JFt*E 


Il programma calcola la somma e il prodotto di 2 numeri e si ferma. Po¬ 
tete far sì che il programma continui a calcolare aggiungendo un loop 
(GOTO); potete anche separare le uscite includendo le righe vuote genera¬ 
te da istruzioni PRINT vuote, come segue: 


160 PRINT 
170 PRINT 
130 GOTO 100 


Naturalmente, la riga finale dovrà essere l’istruzione END. 


190 

END 



L'intero 

programma è listato 

qui sotto. 

100 

PRINT 

"INPUT fi "J 


110 

INPUT 

fi 


120 

PRINT 

"INPUT B " j 


130 

INPUT 

E 


140 

PRINT 

"LR SOMMA DI 

fi E B E' " 

150 

PRINT 

"IL PRODOTTO 

DI R E B E 

160 

PRIHT 



170 

PRINT 



130 

GOTO : 

100 


190 

END 




,fi+B 
' ";fi*B 


Così com'è stato strutturato, il programma continuerà a tornare sui pro¬ 
pri passi fino a che non lo facciamo uscire dall’iterazione di input. Po- 
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tremmo calcolare la somma e il prodotto dei due numeri in righe separa¬ 
te, come nella seguente versione dello stesso programma. 


100 FRINT "INPUT fi "i 
110 INPUT 8 
120 PRINT "INPUT B "J 
130 INPUT B 
140 LET S=fl+B 

150 PRINT "LR SOMMA DI RESE'' “;S 
160 LET P=R*B 

170 PRINT "IL PRODOTTO DI fi E B E' "iP 

130 PRINT 

130 PRINT 

200 GOTO 100 

210 END 


Un'ultima osservazione: studiate i dettagli di un programma con carta e 
matita, prima di lavorare sul computer. Risparmierete tempo e fatica. 


4.5 Problemi 


L Scrivere un programma che legga i quattro numeri 10. 9, 1 e 2 da 
un’istruzione DATA e metta i numeri rispettivamente in A, B. C e D. 
Sommare i primi due numeri mettendo la somma in S. Quindi calco¬ 
lare il prodotto degli ultimi due numeri, mettendo il risultato in P. 
Stampare il valore di S e di P sulla stessa riga. 

2. Scrivere un programma che richieda l’immissione di quattro numeri, 
quindi stampi i numeri in ordine inverso. Per esempio, se battete 5, 
2, 11, 12, il computer deve stampare in risposta 12, 11, 2, 5. Il pro¬ 
gramma deve funzionare per qualunque gruppo di numeri che si de¬ 
cida di immettere. Usate nel vostro programma solo 4 righe, compre¬ 
sa l’istruzione END. 

3. Scrivere un programma che legga le variabili A. B. C e D da numeri 
di vostra scelta in un istruzione DATA. Stampare i numeri vertical¬ 
mente con B sotto A, C sotto B, e D sotto C. 

4. Che cosa sarà emesso in uscita se viene eseguito il seguente program¬ 
ma? 


100 RERD X, V, Z 
110 DRTR 2,5,3 
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120 LET T=X*V+Z 
130 LET S=Vt2 
140 PRINT T,S 
150 END 


5. Che cosa c’è che non va in questo programma? 


100 LET R=2 
110 READ E 
120 LET R=R+C/B 
130 DRTfl 3 
140 PRINT R 
150 END 


6. Spiegate con parole vostre quello che la il programma seguente. 


100 INPUT R,B 
110 LET S=R+B 
120 LET T=R-E 
130 LET U=fl*B 
140 PRINT S; TJ U 
150 END 


7. Uno degli indici usati per giudicare lo stato di salute di un’impresa è 
il rapporto tra il totale del contante disponibile più i titoli commer¬ 
ciabili e i crediti, diviso per i debiti correnti. Scrivere un programma 
che richieda l'immissione delle quantità necessarie, quindi calcoli 
l’indice richiesto. 


8. Scrivere un programma che conti e stampi per cinque a cominciare 
da 0. I primi numeri dovranno essere 0, 5, 10, 15, e così via. Inter¬ 
rompere manualmente il programma quando sono stati emessi qua¬ 
ranta o cinquanta numeri. 


9. L’uscita del programma riportato qui sotto dovrebbe essere 1, 3. 5, 7, 
9 e così via, ma il programma contiene un errore. Che cosa c’è che 
non va? 


100 LET fi=l 
110 PRINT fi; 
120 LET R=R+2 
130 GOTO 100 
140 END 


10. Se un oggetto è lasciato cadere vicino alla superficie della terra, la 



86 INPUT, OUTPUT E SEMPLICI APPLICAZIONI 


distanza che percorrerà in caduta in un determinato tempo sarà de¬ 
terminata da 


M = 9.8S12 


dove M è la distanza percorsa in caduta (in metri) e S è il tempo della 
caduta in secondi. Scrivere un programma che, quando lo si esegue, 
produca la seguente uscita: 

TEMPO DI CADUTA (SEC)? (Immettere S) 

L’OGGETTO CADE PER (Valore di M) METRI 

11. Il volume di una scatola può essere calcolato come 

V = LPA 

dove L, P, A sono rispettivamente la larghezza, la profondità e l’altez¬ 
za. Se queste vengono tutte misurate in centimetri, per esempio, il 
volume sarà in centimetri cubi. Vogliamo un programma che, quando 
avviato, dia l’uscita seguente: 

LARGHEZZA (CM)? (Si immette L) 

PROFONDITÀ (CM)? (Si immette P) 

ALTEZZA (CM)? (Si immette A) 

IL VOLUME È (Il computer emette V) CM CUBI 

Il programma seguente è sbagliato e non darà l’uscita richiesta qui 
sopra. Che cosa c’è che non va? 


100 FRI NT "LARGHEZZA <CM)";L 
110 PRINT "PROFONDITÀ' 

120 PRINT "ALTEZZA <CM>";A 
130 INPUT L,P,A 
140 LET V=L*P*A 

150 PRINT "IL VOLUME E'";V, "CM CUBI " 
160 END 


12. Nel programma sottostante due numeri, A e B, sono richiesti 
nell istruzione di ingresso. Il problema è di fornire le istruzioni man¬ 
canti in modo che, quando A e B vengono stampati, i loro valori siano 
stati scambiati fra loro. 


160 INPUT A,B 

110 

120 
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130 

140 PRIHT R,B 
150 END 


13. Supponiamo che il contachilometri della vostra macchina segni R, 
chilometri quando il serbatoio è pieno. Guidate fino a quando il con¬ 
tachilometri segna R 2 . A questo punto sono necessari G litri di benzi¬ 
na per riempire il serbatoio. I chilometri per litro che avete consu¬ 
mato nel viaggio sono 


K = (R 2 -R,)/G 


Scrivere un programma per ricavare il consumo con i seguenti dati: 


R, R 2 G 


21423 21493 5 

05270 05504 13 

65214 65559 11.5 


14. Supponiamo che stiate scrivendo un programma per stampare dei 
numeri su un modulo. Si presuma che ci siano tre numeri da stampa¬ 
re e che questi si trovino in un'istruzione DATA. Scrivete un pro¬ 
gramma che faccia stampare il primo numero 20 caratteri in dentro 
dal margine sinistro del dispositivo di uscita, seguito da due righe 
vuote. Stampate il secondo numero cominciando al carattere 10. 
Stampate una riga vuota seguita da un terzo numero che cominci al 
carattere 15. Mettete qualunque numero vogliate nell’istruzione DA¬ 
TA e provate il programma. 

15. Si sa che un'istruzione DATA contiene i voti d’esame di una classe di 
dieci studenti. Scrivete un programma che contenga non più di quat¬ 
tro istruzioni contando le istruzioni DATA e END per calcolare e 
stampare la media della classe. Provate il programma su dei dati di 
prova di vostra scelta. 

16. C’è una vecchia storia a proposito di un saggio che avrebbe inventato 
gli scacchi e avrebbe chiesto come ricompensa di ricevere un chicco 
di grano sulla prima casella della scacchiera, 2 chicchi sulla seconda, 
4 sulla terza, 8 sulla quarta, e così via. Scrivete un programma che 
stampi il numero della casella e il numero dei chicchi di grano su 
quella casella. Il programma dovrebbe contenere un’iterazione che 
usa un’istruzione GOTO e dovrebbe essere interrotto da tastiera 
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quando avete visto abbastanza. Quanti grani di frumento ci saranno 
sulla sessantaquattresima casella? Avviate il programma e scopritelo. 

17. Se viene pagato l’interesse composto, il tasso reale annuo di interesse 
è più alto del tasso nominale stabilito per l'investimento. La formula 
BASIC seguente calcola questo tasso reale annuo di interesse: 

T = ((1 + R/(100*M))IM-1)*100 

In questa espressione, T è il tasso reale annuo di interesse in percen¬ 
tuale, R è l'interesse nominale in percentuale, e M è il numero di vol¬ 
te che l’investimento è composto per anno. Scrivere un programma 
che produca l’uscita seguente: 

TASSO DI INTERESSE FISSATO (%) 

? (Introdurlo da tastiera) 

QUANTE VOLTE È COMPOSTO ALL’ANNO 
? (Introdurlo da tastiera) 

IL TASSO REALE ANNUO DI INTERESSE È 
(Il computer emette la risposta) 

18. L'interesse semplice su un investimento è calcolato secondo la regola 
seguente: 

I = (PXR/100)(T/365) 

dove P è il capitale investito al tasso R di interesse annuo (espresso 
in percentuale) per un tempo T (espresso in giorni). Scrivere un pro¬ 
gramma che generi sul video l’uscita presentata qui sotto quando vie¬ 
ne eseguito. 

QUAL È IL CAPITALE? 

? (Immettere da tastiera il capitale) 

QUAL È IL TASSO ANNUO DI INTERESSE (%)? 

? (Immettere da tastiera il tasso di interesse) 

QUAL È IL PERIODO IN GIORNI? 

? (Immettere da tastiera il periodo) 

PER UN INVESTIMENTO DI 
(Il computer scrive il capitale) 

AD UN TASSO DI INTERESSE ANNUO DEL 
(Il computer scrive il tasso) % 

INVESTITO PER 

(Il computer scrive il periodo) 
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GIORNI, L'INTERESSE È 
(Il computer scrive l’interesse) 

19. Se una somma di denaro P è lasciata ad accumulare interessi al tasso 
di I per cento all’anno per N anni, il denaro crescerà fino all’importo 
totale T dato da 

T = P*(l+I/100)tN 

Ad esempio, se P = 1000000, 1 = 6 per cento, e N = 5 anni, 

T = 1000000 *(1+6/100)15 = 13382300 

Scrivere un programma che, quando avviato, generi la seguente uscita: 

INVESTIMENTO INIZIALE? (Si immette P) 

TASSO DI INTERESSE ANNUO (%)? (Si immette I) 

ANNI DI ACCUMULO INTERESSI? (Si immette N) 

IL VALORE TOTALE È (Il computer scrive T) 


20. Se una somma di denaro P è lasciata ad accumulare interessi al tasso 
I per cento composto J volte all’anno per N anni, il valore dell inve¬ 
stimento sarà 

T = P*(l+1/(100* J))1(J*N) 

Scrivere un programma che richieda l’immissione di P, I, J e N. Ese¬ 
guire il programma come richiesto per ottenere il valore di 
1000000 investito per due anni alP8 per cento composto 

a. Annualmente (J = 1) 

b. Semestralmente (J = 2) 

c. Mensilmente (J = 12) 

d. Settimanalmente (J = 52) 

e. Giornalmente (J = 365) 


4.6 Test di apprendimento 


1. Quale sarebbe l'uscita se questo programma venisse eseguito? 
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100 LET X-l 
110 PRINT XJ 
120 LET X“X+1 
130 GOTO 110 
140 END 


2. Descrivete tre modi di introdurre i numeri in un programma BASIC. 


3. In un’istruzione PRINT, com’è chiamata una sequenza di caratteri fra 
virgolette? 


4. Qual è lo scopo dell’istruzione REM? 


5. Se in un programma BASIC c’è un’istruzione READ, quale altro tipo 
di istruzione deve essere anch'esso presente nel programma? 


6. Che cosa succede se viene eseguito il seguente programma? 


100 LET X=3 
110 LET V=4 
120 PRINT "V = ";X 
130 END 


7. Quante sono le colonne standard di stampa per riga in BASIC quando 
le quantità da stampare sono separate da virgole? 


8. Quante istruzioni DATA vi possono essere in un programma? 


9. Qual è lo scopo dell’istruzione TAB nel BASIC? 
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10. Come si presenterà l’uscita se verrà eseguito il programma seguente? 


100 LET R=1 
110 LET B~3 
120 PRINT FUB 
130 PRINT R;B 
140 END 


11. Il programma 

100 INPUT fUB 
110 LET C=R+E 
120 PRINT C 
130 END 

viene eseguito e in risposta al segnale di input battete 10, 12 e 13. De¬ 
scrivete esattamente quello che accadrà. 


12. Le miglia si convertono in chilometri moltiplicando per 1.609. Così, 
10 miglia equivalgono a 16.09 chilometri, e così via. Scrivere un pro¬ 
gramma che produca l’uscita seguente quando è eseguito. 


IMMETTERE NUM. MIGLIA (Si immette il numero) 

(Il computer stampa il vostro numero) MIGLIA EQUIVALGONO A 
(Risposta) CHILOMETRI 







Capitolo 


Decisioni e salti 



5.1 Obiettivi 

La potenza di un computer risiede in larga parte nella sua capacità di 
prendere decisioni nei programmi. In questo capitolo esploreremo questa 
caratteristica e proseguiremo a imparare a programmare in BASIC. Gli 
obiettivi sono i seguenti. 


ISTRUZIONI DI SALTO 

Le decisioni prese nei programmi possono far sì che il computer salti a 
numeri di riga al di fuori dell’ordine consecutivo. Tale trasferimento ad 
una riga di programma può essere incondizionato o può dipendere dai 
valori di variabili del programma. Queste istruzioni di salto condizionato 
e incondizionato fanno sì che dei programmi semplici producano risultati 
potenti e utili. 


ESEMPI DI PROGRAMMI 

Come nel precedente capitolo, continueremo ad imparare come applicare 
le tecniche che studiamo in programmi BASIC. 
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TROVARE ERRORI NEI PROGRAMMI 


Quasi tutti i programmi contengono degli errori quando sono scritti la 
prima volta. Controllare i programmi per trovare degli errori è un'abilità 
vitale che, come la stessa programmazione, può essere imparata. 


5.2 Esercizi di scoperta 

1. Accendere il computer e la TV e immettere il programma seguente: 


100 LET X*1 
110 PRINT X 
120 LET X=X+1 
130 IF XC5 THEN 110 
140 END 


Il simbolo < della riga 130 significa "minore di’’; perciò l’istruzione 
si traduce con "se X è minore di 5 allora 110”. Studiate attentamente 
il programma. Che cosa pensate che sarà visualizzato se si esegue il 
programma? 


Eseguite il programma e registrate qui sotto quello che è successo. 


2. Ora battete 
100 LET X=2 


Visualizzate il programma in memoria. Come sarà ora l’uscita? 


Eseguite il programma e scrivete quello che il computer ha stampato. 


3. Ora effettuiamo un altro cambiamento nel programma per vedere se 
state seguendo quello che avviene. Battete 
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120 LET X=X+2 

Visualizzate il programma e studiatelo attentamente. Che cosa pensa¬ 
te che farà ora? 


Eseguite il programma e controllate se avevate ragione. Copiate qui 
sotto quello che è successo in realtà. 


4. Esploriamo ora un’altra idea in connessione con il programma che 
avete in memoria, ma abbiamo bisogno di effettuare alcuni cambia¬ 
menti. Potete modificare il programma in modo che concordi con 
quello elencato qui sotto, o potete cancellare il programma in memo¬ 
ria ed immettere quello qui sotto riportato. 

100 LET X=1 

110 PRINT X 

120 LET X=X+1 

130 IF X>=5 THEN 140 

135 GOTO 110 

140 END 

Eseguite il programma e registrate quello che è successo. 


Confrontate l’uscita registrata qui sopra con quella che avete tra¬ 
scritto nel punto 1. C’è qualche rapporto? 


5. Visualizzate il programma in memoria. In questo programma c’è 
un’affermazione enunciata nella riga 130. L’affermazione è X > = 5, 
che si legge come "X maggiore o uguale a 5”. Se per esempio X aves¬ 
se il valore numerico 6, l'affermazione sarebbe vera. Se X avesse il 
valore 3, l’affermazione sarebbe falsa. 

Ora osserviamo il programma che si trova al punto 4. Se il program¬ 
ma venisse eseguito, il computer inizierebbe con la riga 100, quindi 
andrebbe alle righe 110, 120 e 130. Se l’affermazione contenuta nella 
riga 130 è vera, quale numero di riga eseguirà in seguito il compu¬ 
ter? 
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6. Finora nei programmi sono state usate soltanto due condizioni. Que¬ 
ste sono 

< (Minore di) 

>= (Maggiore o uguale a) 

Come scrivereste le condizioni: 

Maggiore di 


Minore o uguale a 


Uguale a 


Potete indovinare come si indica "diverso da”? 


Se sapete completare le risposte qui sopra senza troppe difficoltà, be¬ 
ne. Se no, non preoccupatevi, perché ripasseremo tutto più avanti. La 
cosa importante ora è capire come lavora l'istruzione IF THEN ("se... 
allora”). 


7. Ora passiamo a qualche applicazione che usi le istruzioni IF THEN. 
Cancellate il programma in memoria e immettete il seguente: 

100 PRINT "INSERISCI 1,2, 03 

110 INPUT V 

120 IF V=1 THEN 150 

130 IF V=2 THEN 170 

140 IF V-3 THEN 190 

150 PRINT "FRAGOLE" 

160 GOTO 106 

170 PRINT "LAMPONI" 

180 GOTO 100 
190 PRINT "PANNA" 

200 GOTO 100 
210 END 

Visualizzare il programma e controllare di averlo immesso in modo 
esatto. Studiatelo brevemente. Ricordate che, quando il programma 
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viene eseguito e il computer scrive il segnale di input, dovete battere 
1, 2, o 3. Qual è il valore di Y che permetterà al computer di raggiun¬ 
gere la riga 150 del programma? 


Quale valore o valori di Y permetteranno al computer di raggiungere 
la riga 170? 


E la riga 190? 


8. Supponiamo che voi vogliate che il computer presenti LAMPONI. 
Quale valore di Y dovrà essere immesso? 


Vedete un po' se avevate ragione. Eseguite il programma e immettete 
il numero che avete annotato. Che cosa è successo? 


9. Qual è il valore di Y che farà sì che il computer visualizzi FRAGOLE? 


E per far stampare PANNA dal computer? 


Controllate ciascuna delle risposte per vedere se avevate ragione. 

10. Il programma presume che al segnale di input venga battuto un nu¬ 
mero, 1, 2 o 3. Pensate un momento al programma e poi provate ad 
immaginare che cosa succederebbe se si battesse 4 in risposta al se¬ 
gnale di ingresso. Che cosa pensate che possa succedere? 


Eseguite il programma, battete 4 in risposta al segnale di ingresso e 
annotate qui sotto quello che è successo. 
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Potete facilmente spiegarvi quello che è successo. Premete 
run/stop/restore e battete LIST per visualizzare il programma. Consi¬ 
derate quello che il computer fa quando si imbatte nell’affermazione 
contenuta nell’istruzione IF THEN. Ricordate che se l’affermazione è 
vera, il computer passa al numero di riga che segue il THEN. Se la 
condizione è falsa, il computer passa al numero di riga successivo 
nell’ordine numerico. 


11. run/stop o run/stop/restore interrompono il programma ma è possi¬ 
bile scrivere un programma che si possa interrompere con un'unica 
pressione di tasto. Cancellate il programma in memoria e battete il 
programma seguente: 


100 PRINT "PREMETE DEI TRSTI" 
110 GET fi» 

120 IF fi*= "Q" THEN 150 
130 PRINT R$J 
140 GOTO 110 
150 PRINT "FfiTTQ" 

160 END 


Quando avviate il programma, premete diversi tasti prima di immet¬ 
tere la Q maiuscola. Eseguite il programma. Che cosa è successo? 


Quante volte viene visualizzato il carattere di ciascun tasto? 


Premete Q per fermare il programma. La Q viene stampata sullo 
schermo? 


12. Cambiate il programma nel modo seguente. Cancellate le righe 130 e 
150. Aggiungete la riga 125: 

125 IF fiì= ,,,, THEN 110 


Visualizzate il programma. 


13. Ora cambiate la riga 120 del programma come segue: 
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120 IF RfO THEN PRINT RS 

Visualizzate il programma ed eseguitelo. Premete diversi tasti. Cosa 
succede dopo che avete premuto un tasto? 


Il computer indica che sta aspettando la pressione di un tasto? 


Premete la barra di spaziatura diverse volte, poi il tasto K. La barra 
crea degli spazi? 


Interrompete il programma con run/stop. 

14. Cancellate la riga 160, cioè l’istruzione END. Aggiungete la linea 115: 
115 IF R$="Q" THEN END 

Cercate di indovinare quale tasto va premuto per terminare il pro¬ 
gramma. Eseguitelo e vedete se avete indovinato. 


Sostituite la Q della riga 115 con uno spazio, come segue: 

115 IF fì$=" " THEN END 

Quale tasto farà fermare ora il programma? 


Visualizzate il programma. Ora eseguitelo e premete vari tasti prima 
di premere la barra spaziatrice. Avevate ragione? 


15. Cancellate la memoria e immettete ora il seguente programma: 

100 LET S=0 
110 INPUT V 
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120 IF Vallili THEN 150 
130 LET S=S+V 
140 GOTO 100 
150 PRINT S 
160 END 


Questo programma deve sommare i numeri che sono immessi. II valo¬ 
re di input che provoca la stampa della somma è 11111. Non va a far 
parte della somma. 

16. Avviate con RUN il programma e ogni volta che il segnale di input 
viene visualizzato, immettete un numero preso dalla seguente sequen¬ 
za (ricordate di premere return dopo ogni numero): 

3165 11111 

Qual è il valore che viene stampato per S? 


Questo valore di S è la somma dei valori che avete immesso? 


17. Provate e scoprite perché. 

Immettere la riga seguente per studiare il cambiamento del valore di S: 
135 PRINT " S= ">S 


Listate il programma, avviatelo e immettete gli stessi valori del punto 
16. Che cosa sono i valori di S nella riga 135 in confronto ai valori 
immessi nella riga 110? 


Benché possiate già aver scoperto l’errore logico del programma, se¬ 
guitene attentamente l'esecuzione. Potete vedere che l’istruzione GO¬ 
TO della riga 140 va alla riga sbagliata, cioè alla riga 100, dove S è ri¬ 
messo ogni volta a zero. 

18. Cancellate la riga 135 e modificate la riga 140 come segue 


140 GOTO 110 







DECISIONI E SALTI 101 


Avviate il programma e immettete gli stessi valori (3, 1, 6, 5, 11111). 
L’uscita è la somma dei numeri che voi avete inserito? 


Eseguite un’ultima volta il programma con gli stessi valori per verifi¬ 
carne l'esattezza. 

19. Spegnete il computer e la TV e passate all’analisi degli obiettivi. 


5.3 Analisi 

ISTRUZIONI DI SALTO 

Fin dall inizio del libro abbiamo osato istruzioni di salto incondizionato. 

Il seguente programma ne illustra l’uso: 

100 LET 2=2 
110 FRINT Z 
120 LET Z-ZW.2 
130 GOTO 110 
140 END 

Ricordate che, quando gli si ordina di eseguire un programma BASIC, il 
computer va all’istruzione che ha il numero di riga più basso e quindi 
esegue le istruzioni in ordine di riga crescente. L’unico modo di inter¬ 
rompere ciò è per mezzo di un’istruzione di salto (o, come vedremo nel 
prossimo capitolo, un comando di iterazione). Nel suddetto programma il 
computer eseguirebbe i numeri di riga nell’ordine seguente: 100, 110, 
120, 130, 110, 120, 130, 110, 120, 130, e così via. Il punto importante è che 
l'istruzione della riga 130 fa sì che il computer salti indietro alla riga 
110, invece di andare alla riga 140. Si noti che qui non vi sono condizioni 
aggiunte all’istruzione della riga 130. Questo perché l'istruzione GOTO è 
un’istruzione di salto (o di trasferimento) incondizionato. È anche chiaro 
che l'istruzione GOTO in questo caso mette il programma in un’iterazio¬ 
ne e che non c'è modo per uscirne se non interrompendo da tastiera il 
programma mentre è in esecuzione. (Può darsi che il programma produca 
un numero troppo grande, che il BASIC non può gestire, provocando un 
errore di OVERFLOW che lo blocca). 

Per riassumere, se ad un certo punto nel programma volete che il compu¬ 
ter salti ad un’altra riga senza condizioni, usate l’istruzione GOTO. Però 
state attenti a non mettere il programma in un circolo chiuso senza pos¬ 
sibilità di uscita. 
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L’istruzione GOTO è incondizionata 

Alcune istruzioni di salto contengono condizioni. 

A questo punto avrete senza dubbio già fatto il collegamento fra le istru¬ 
zioni IF THEN che avete incontrato nel lavoro sul computer e la nozione 
di trasferimento condizionato. 

Le istruzioni IF THEN pongono delle condizioni 

Tutte le istruzioni di salto condizionato hanno la stessa forma; 

N° riga IF espressione — condizione — espressione THEN N° riga 
Notate la forma di una semplice istruzione condizionale: 

240 IF 3*X - 2 > Y - Z THEN 369 

Qualunque sia l’affermazione, tutte le istruzioni IF THEN hanno lo stes¬ 
so formato. L'IF ("se”) e il THEN ("allora”), così come i due numeri di ri¬ 
ga dell’istruzione non richiedono particolari spiegazioni. Il cuore 
dell’istruzione si trova nelle due espressioni separate dalla condizione 
che forma l’affermazione. Dobbiamo osservarle attentamente. 

In tutti gli esempi che abbiamo visto finora, con l’eccezione di quello qui 
sopra, le relazioni sono state delle semplici variabili o delle costanti. 
Questo è il tipo di confronto usato più spesso nei programmi. Esempi ne 
possono essere 

100 IF LK3 THEN 250 

340 IF S>T THEN 220 


Vi sono casi, tuttavia, in cui possiamo aver bisogno di usare delle espres¬ 
sioni più complicate nelle istruzioni IF THEN. Nell'esempio che segue 

240 IF 3*X - 2 > V - Z THEN 360 

la prima relazione è 

3#X - 2 

che va bene ammesso che X abbia un valore. La seconda relazione 


"3T 


V - z 




DECISIONI E SALTI 103 


può anch’essa essere usata se Y e Z hanno dei valori. Per illustrare me¬ 
glio quel che accade in un programma, supponiamo che X abbia il valore 
1, Y il valore 10 e Z sia 4. Il computer semplificherà l’istruzione sosti¬ 
tuendo innanzitutto i valori di X, Y e Z e facendo i calcoli. Questo tra¬ 
sforma l'istruzione in 

240 IF 1>6 THEH 360 

Presto o tardi tutte le istruzioni IF THEN si riducono a questa forma, 
nella quale il computer deve giudicare se un’affermazione stabilita fra 
due numeri e una condizione è vera o falsa. In questo caso l'affermazione 
1 >6 è falsa, mentre un'affermazione come 4 <10 sarebbe vera. Se l’affer¬ 
mazione è vera, il computer passerà al numero di riga che segue il 
THEN. Se l’affermazione è falsa, il computer passerà alla riga con il nu¬ 
mero immediatamente superiore nel programma. 

IF condizione vera THEN salta 

IF condizione falsa THEN va al numero di riga successivo 

Varie condizioni possono essere usate nell’istruzione IF THEN. Le condi¬ 
zioni con i loro significati sono elencate qui sotto. 

Condizione Significato 

— Uguale a 

< Minore di 

> Maggiore di 

<= Minore o uguale a 

> = Maggiore o uguale a 

< > Diverso da 

Le indicazioni che seguono THEN o sono inserite in istruzioni condizio¬ 
nali, non richiedono numeri di linea. Per esempio, sono possibili queste 
istruzioni: 

IF X=5 THEN END 

IF X>=6 THEN PRINT "HAI PERSO" 

Più spesso però THEN è seguito dai numeri di linea: la possibilità di sal¬ 
tare in qualsiasi punto del programma è infatti uno strumento molto po¬ 
tente per il programmatore. 
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5.4 Esempi di programmi 

Fino a questo punto i nostri programmi hanno sofferto di gravi limitazio¬ 
ni. Il programma poteva operare delle ripetizioni, ma non c’era poi modo 
di fermare il procedimento se non interrompendolo. Il programma si fer¬ 
mava, ma spesso aveva la tendenza ad essere banale. Quello che vogliamo 
è uno strumento per avere un programma che svolga un compito utile 
(che può coinvolgere la ripetizione) e che poi si fermi. Le istruzioni di sal¬ 
to condizionato che abbiamo appena imparato forniscono un meccanismo 
per fare questo. Ora vedremo vari programmi; il primo è molto semplice 
ma gli altri vi daranno un’idea di come far lavorare i programmi. 


ESEMPIO 1 — STAMPA DI NUMERI 

Il nostro problema è di scrivere un programma che stampi il seguente 
schema numerico: 

2 3 4 5 
6 7 8 3 
10 11 


Questo schema ha varie caratteristiche da tener presente quando scrivia¬ 
mo il programma. Il primo numero è 2 e i numeri successivi sono spazia¬ 
ti fra loro nella spaziatura standard (quattro numeri per riga). Ciascun 
numero è più grande del precedente di un'unità. L'ultimo numero stam¬ 
pato è 11, e poi il computer dovrebbe fermarsi. 

Varie soluzioni sono possibili: una, non la più elegante, è 


100 FRINT 2 , 3,4,5.6.7.8,9,10,11 
110 END 


Potete controllare questo programma e vedere che in realtà produce lo 
schema di numeri giusto. Illustra anche un concetto molto importante. 
Non esiste "il programma giusto” in assoluto. L'unico controllo che si 
può applicare è "Il programma funziona?”. Certamente alcuni program¬ 
mi sono più veloci o sanno raggiungere i risultati in modo più efficiente 
di altri, ma questo è un altro discorso. 

Ora torniamo al problema che stavamo affrontando. Un modo di avvici¬ 
narsi al problema è di far sì che il computer stampi il primo numero del¬ 
lo schema. Vogliamo anche organizzare il programma in modo che sia ri¬ 
chiesta una sola istruzione di stampa: il programma dovrà stampare il 
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valore di una variabile che cambierà durante l’esecuzione. Iniziamo il no¬ 
stro programma con il seguente segmento: 

100 LET X=2 
110 PRINT X* 


Il valore di X è fissato a 2, e questo valore è stampato nella riga 110. La 
virgola fa sì che il computer spazi sulla riga fino alla nuova posizione 
standard di stampa. Ora dobbiamo generare il valore successivo da stam¬ 
pare. (Notate che, in qualunque punto dello schema numerico, il valore 
successivo è appena 1 più del numero attuale). Questo può essere fatto 
con 


120 LET X-X+l 

Ora tutto quello che resta da fare è far prendere al computer una deci¬ 
sione: tornare indietro all’istruzione di stampa o fermarsi. Finché X è mi¬ 
nore di o uguale a 11 vogliamo che torni indietro. Possiamo fare ciò con 
un'istruzione di salto condizionato. 

130 IF XOll THEN 110 

Il programma termina con l'istruzione END. 

140 END 

Il programma completo è 

100 LET X=2 

110 PRINT X i 

120 LET X=X+1 

130 1F XOll THEN 110 

140 END 

Questo è un programma semplice che non ha alcun valore pratico, se non 
quello di illustrare come un’istruzione di salto condizionato possa tirarci 
fuori da un programma al momento opportuno. 


ESEMPIO 2 — TASSA DI CIRCOLAZIONE 

Facciamo l'ipotesi che voi dobbiate creare un programma per TACI, per 
il calcolo della tassa di circolazione. Le cifre riportate qui sotto sono ov¬ 
viamente inventate per semplificare le cose. 
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Tassa di 

Potenza in cavalli circolazione 


Fino a 50 CV 0 

Più di 50 fino a 100 CV 30000 

Più di 100 fino a 200 CV 70000 

Più di 200 fino a 300 CV 150000 

Più di 300 CV 500000 


Vogliamo un programma che produca la seguente uscita quando viene 
eseguito: 

POTENZA DELL’AUTO? (Si immette la potenza in CV) 

LA TASSA DI CIRCOLAZIONE È (Il computer stampa la tassa) 

POTENZA DELL’AUTO? (Si immette la potenza in CV) 

LA TASSA DI CIRCOLAZIONE È (Il computer stampa la tassa) 

(ecc.) 


Chiaramente, l’unica difficoltà del programma è decidere qual è la tassa. 
Questo procedimento decisionale è fatto attraverso l’istruzione IF THEN. 
Tanto per cominciare, dobbiamo far sì che si possa immettere la potenza 
della macchina. Useremo P per indicare questa grandezza. Il programma 
può dunque cominciare con 

100 PRINT '*POTENZA DELL'AUTO "J 
110 INPUT P 

Ora dobbiamo trovare un metodo per decidere a quale categoria appar¬ 
tiene P. Un modo logico sarebbe di controllare verso l’alto, cominciando 
dalle potenze più basse. Per prima cosa possiamo controllare se P è 50 o 
meno. In questo caso sappiamo che la tassa sarà 0. 

126 IF P<=50 THEN (La tassa è 0) 

Il numero di riga che segue THEN manca per il seguente motivo: se il 
numero contenuto in P è minore di 50 o uguale a 50, vogliamo che il 
computer salti ad un’istruzione che assegnerà alla tassa il valore 0. Il 
problema è che a questo punto non sappiamo quale numero di riga dovrà 
essere usato per questa istruzione. Di conseguenza, lasciamo lo spazio 
vuoto e ci torneremo su più tardi per inserirvi il valore appropriato. La 
nota a destra ha la funzione di ricordarci quale dovrebbe essere la tassa 
se l’affermazione è vera e viene effettuato il salto. 
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Se l’affermazione della riga 120 è falsa, il computer passa alla riga suc¬ 
cessiva. In questo caso controlliamo se P ricade nella categoria immedia¬ 
tamente superiore. 

130 IF P<=100 THEN (La tassa è 30000) 


Ancora non sappiamo che numero di riga usare dopo THEN, ma potremo 
completarlo in seguito. Restano ancora tre istruzioni di salto per deter¬ 
minare completamente a quale categoria appartiene P. Esse sono: 

140 IF P<=20© THEN (La tassa è 70000) 

150 IF PO300 THEN (La tassa è 150000) 

160 IF P>300 THEN (La tassa è 500000 


Il programma a questo punto è 


100 PRINT "POTENZA 
110 INPUT P 
120 IF PO50 THEN 
130 IF P<=100 THEN 
140 IF P<=200 THEN 
150 IF PO306 THEN 
160 IF P>300 THEN 


DELL'AUTO "i 

(La tassa è 0) 

(La tassa è 30000) 
(La tassa è 70000) 
(La tassa è 150000) 
(La tassa è 500000) 


Ora possiamo completare immettendo il numero di riga che mancava nel¬ 
la riga 120. Siccome il prossimo numero di riga del programma sarebbe 
170, possiamo benissimo usarlo. 


100 PRINT "POTENZA DELL'AUTO ", 

110 INPUT P 

120 IF PO50 THEN 170 

130 IF P<=100 THEN (La tassa è 30000) 

140 IF P< c 200 THEN (La tassa è 70000) 

150 IF P<=300 THEN (La tassa è 150000) 

160 IF P>300 THEN (La tassa è 500000) 

170 LET F=0 

180 GOTO (Istruzione PRINT) 


Di nuovo, nella riga 180 c’è un numero di riga mancante. Il promemoria 
dice che vogliamo passare ad un'istruzione di stampa. Se l'affermazione 
della riga 120 è vera, il computer salta alla riga 170 e assegna il valore 0 
a T, che sta per tassa. Possiamo continuare a completare i numeri di riga 
mancanti nelle righe 130, 140, 150 e 160 usando lo stesso schema. Il risul¬ 
tato è 
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100 PRINT "POTENZA DELL'AUTO 
110 INPUT P 
120 IF P<=50 THEN 170 
130 IF P<=100 THEN 190 
140 IF P<=200 THEN 210 
150 IF P<=300 THEN 230 
160 IF P>300 THEN 250 
170 LET F=0 

180 DOTO (Istruzione PRINT) 

130 LET F=30 

200 GOTO (Istruzione PRINT) 

210 LET F=70 

220 GOTO (Istruzione PRINT) 

230 LET F=150 

240 GOTO (Istruzione PRINT) 

250 LET F=500 


La riga successiva nel programma sarebbe 260, che possiamo benissimo 
usare per l’istruzione PRINT. Il resto del programma segue facilmente. Il 
programma completo è dato qui sotto. 


100 PRINT "POTENZA DELL'AUTO "j 

110 INPUT P 

120 IF PO50 THEN 170 

130 IF PC—100 THEN 190 

140 IF PC=200 THEN 210 

150 IF PC=300 THEN 230 

160 IF P>30@ THEN 250 

170 LET F=0 

180 GOTO 260 

190 LET F=30 

200 GOTU 268 

210 LET F=70 

220 GOTO 260 

230 LET F=150 

240 GOTO 260 

250 LET F=500 

260 PRINT "LA TASSA DI CIRCOLAZIONE E' ";F*1000 
270 PRINT 
280 GOTO 100 
290 END 


Forse avrete notato che l’istruzione di salto condizionato della riga 160 
non è necessaria. Per vedere perché, considerate ciascuna delle afferma¬ 
zioni nelle istruzioni IF THEN. Se l'affermazione della riga 120 è falsa, 
sappiamo che P dev’essere più grande di 50. Allo stesso modo, se ognuna 
delle affermazioni successive è falsa, il computer passa alla riga successi¬ 
va. In particolare, supponiamo che il computer raggiunga la riga 150 e 
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determini che l’affermazione è falsa. Quindi passa alla riga 160, ma a 
quel punto sappiamo già che P dev’essere maggiore di 300 e che si può 
perciò stampare la tassa senza nessun’altra prova. Se assegnassimo la 
tassa di 500000 lire alla riga 160, come risultato si avrebbe un program¬ 
ma leggermente diverso: 


100 PRINT "POTENZA DELL''AUTO 

110 INPUT P 

120 IF P<=50 THEN 200 

130 IF P<=100 THEN 220 

140 IF PO200 THEN 240 

150 IF PO306 THEN 2-50 

160 LET F=500 

170 PRINT "LA TASSA DI CIRCOLAZIONE E' ";F#1000 

180 PRINT 

190 GOTO 100 

200 LET F=0 

210 GOTO 170 

220 LET F=30 

230 GOTO 170 

240 LET F=70 

250 GOTO 170 

260 LET F=150 

270 GOTO 170 

280 END 


Poiché le operazioni da compiere sono corte, un'altra versione del pro¬ 
gramma potrebbe essere: 


100 PRINT "POTENZA DELL'AUTO "J 
110 INPUT P 

120 IF P<=50 THEN F=0: GOTO 170 
130 IF P<=100 THEN F=30 : GOTO 170 
140 IF P<=200 THEN F=70: GOTO 170 
150 IF P<=300 THEN F=15@: GOTO 170 
160 LET F=50Q 

170 PRINT "LA TASSA DI CIRCOLAZIONE E' "JF*100O 
180 PRINT 
190 GOTO 100 
200 END 


Notate i due punti nella riga 120: sono usati per separare le istruzioni 
multiple dopo il THEN in un'istruzione IF THEN. 

Tutte e tre le versioni del programma funzionano bene e potreste produr¬ 
ne anche un’altra. Scegliete la versione che preferite; l’unico punto è che 
il programma funzioni bene. 

Studiate il programma fino a che siete sicuri che esegue quello che si de- 
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siderava fargli eseguire. Cercate anche di ricordare la tecnica di lasciare 
vuoto lo spazio per il numero di riga quando non sapete quale dovrebbe 
essere questo numero, tornandoci poi sopra più tardi per completare lo 
spazio con i valori appropriati. I commenti a destra della riga in questi 
casi vi aiuteranno a ricordare quello che volete che succeda con il salto a 
quel punto del programma. 


ESEMPIO 3 — MEDIA DI NUMERI 

Supponiamo di avere dei numeri in un'istruzione DATA e di volerne otte¬ 
nere la media. Il problema è che non sappiamo in anticipo quanti numeri 
vi possano essere. Useremo allora una variabile "semaforo” (flag) per se¬ 
gnare la fine dei dati. Il flag sarà un numero che molto difficilmente po¬ 
trebbe essere incluso nei dati. Per il nostro flag useremo il numero 9999, 
ma potreste usarne uno di vostra scelta. 

Ecco come funziona. La riga dei dati apparirà sempre così: 

N° riga DATA numero,numero,...,numero ,9999 

Ogni volta che un numero viene letto nell'istruzione DATA, il programma 
deve controllare se questo è 9999. Se non lo è, il numero appena letto fa 
parte dei dati di cui si vuole ottenere la media. Se il numero è 9999, tutti 
i dati sono stati letti e si può passare al resto del programma. 

La media si calcola dividendo la somma dei numeri per il loro numero. 
Nel nostro programma dobbiamo calcolare entrambe queste quantità. 
Useremo S per la somma dei numeri e N per il numero dei numeri. 
Quando il programma viene eseguito, il computer non sa quali saranno 
questi valori, e così li pone uguali a zero e quindi sviluppa i loro valori 
via via che si leggono numeri nelle istruzioni DATA. 

Il programma comincia fissando i valori iniziali di S e di N, che in questo 
caso sono uguali a 0. 

100 LET S=0 
110 LET N=0 

Ora possiamo leggere un numero dall’istruzione DATA e controllarlo per 
il valore di flag. 

120 RERD X 

130 IF X=9999 THEN (Calcola la media) 


Lasciate un numero di riga vuoto nell istruzione di salto condizionato fi- 
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no a quando non conoscete quale debba essere. In questo caso, se l’affer¬ 
mazione (X = 9999) è vera allora sappiamo che tutti i numeri dell’istruzio¬ 
ne DATA sono stati elaborati e che siamo pronti per calcolare la media. 
Se l’affermazione è falsa, allora il numero appena letto deve far parte dei 
dati e dev’essere elaborato. Questo si fa nel modo seguente: 

140 LET S=S+X 
150 LET N=N+1 

Nella riga 140 il valore di X (il numero appena letto) è aggiunto al valore 
di S. Ricordate che la somma di tutti i numeri di cui si deve ottenere la 
media si sta sviluppando in S. Nella riga 150 il numero N viene incre¬ 
mentato di 1 per registrare il fatto che un altro numero è stato elaborato. 

Ora aggiungete un GOTO all’istruzione READ, che ha il compito di far 
cercare al computer il successivo numero nei DATA. 

160 GOTO 120 

Ora possiamo completare la riga 130 inserendovi il numero di riga che 
mancava, giacché il prossimo numero di riga sarebbe normalmente 170. 
Nella riga 170 calcoliamo la media, che identificheremo con M. Se viene 
aggiunta una istruzione DATA tipica, il programma completo è 


100 

LET 3=0 


110 

LET N=0 


120 

RERD X 


130 

IF X=9999 THEN 

170 

140 

LET S=S+X 


150 

LET N=N+1 


160 

GOTO 120 


170 

LET R-SXN 


180 

PRINT Fi 


190 

DRTR 4,2,3,6,5, 

9999 

200 

END 



Naturalmente possiamo avere tutte le istruzioni DATA che sono necessa¬ 
rie per contenere i numeri di cui si deve fare la media. Dopo l’ultimo nu¬ 
mero nelTultima istruzione DATA mettiamo il flag 9999 per segnare la fi¬ 
ne dei dati. Questo ci fa uscire dall’iterazione di lettura (READ) e ci per¬ 
mette di sapere quando passare al calcolo della media. L’istruzione di 
salto condizionato unita all’idea di una variabile che faccia da 
"semaforo” ci fornisce un potente strumento da usare nei programmi. 
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TROVARE GLI ERRORI MEI PROGRAMMI 

La capacità di osservare un programma e di determinare se fa quello che 
dovrebbe fare è certo una delle più importanti che il principiante possa 
acquisire. Per venire più al sodo, dovete riuscire a trovare quello che non 
va e a correggerlo quando un programma non fa quello che dovrebbe fa¬ 
re. 

Controllare i programmi e trovarne gli errori significa svolgere due com¬ 
piti separati. Primo, dovete decidere quali sono le variabili di cui vorre¬ 
ste avere maggiori informazioni. Potete inserire delle istruzioni PRINT 
nel programma per stampare i valori delle variabili a cui siete interessa¬ 
ti. Secondo, dovete essere in grado di seguire la logica del programma, 
seguendolo passo passo (usando carta e penna, se necessario). Nei loop è 
generalmente sufficiente controllare la prima e l’ultima coppia di valori. 
Queste due operazioni portano spesso ad una rapida determinazione de¬ 
gli errori logici di programmazione. 


5.5 Problemi 


1. Scrivere un programma BASIC che richieda l’immissione di due nu¬ 
meri e quindi stampi il maggiore dei due. 


2. Scrivere un programma BASIC che legga (READ) tre numeri da 
un’istruzione DATA e poi stampi il più piccolo dei tre. 


3. Scrivere un programma per calcolare e stampare la somma di tutti i 
numeri interi compresi fra 1 e 100, estremi inclusi. 


4. Che cosa succederebbe se il seguente programma venisse eseguito? 
Descrivetelo con parole vostre. 


100 LET S=0 

110 LET X=1 

120 LET 3=S+X 

130 LET X=X+2 

140 IF XC100 THEN 120 

150 PRINT S 

160 END 


5. Nell'esempio 3 del paragrafo 5.4, modificate nel modo seguente la ri¬ 
ga 190: 
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190 ditta 4,2.3.6,5,1111 

Studiate il programma e annotate per iscritto quello che verrebbe vi¬ 
sualizzato se il programma venisse eseguito. Sarà bene che proviate 
ad eseguire il programma per vedere se avevate ragione. Può essere 
utile inserire la riga 155 come segue: 

155 PRINT "S = “.SJ" N = ";N 

6. Scrivere un programma per trovare la media di tutti i numeri positi¬ 
vi di un elenco la cui fine è segnata dal flag 999. La lista dei numeri 
dev’essere immessa nel computer durante l’esecuzione. 

7. Supponiamo che vi sia un’istruzione DATA che contiene una lista di 
numeri di lunghezza ignota. La fine della lista però è segnata con il 
flag 9999. Scrivere un programma BASIC per calcolare e stampare la 
somma dei numeri della lista il cui valore sia compreso fra —10 e 
+ 10 estremi compresi. 

8. Di solito nei supermercati si aggiunge alle merci un ricarico che va¬ 
ria a seconda del costo unitario del prodotto. Si supponga che questo 
ricarico sia basato sulla tabella seguente: 


Costo unitario Ricarico 


da 1 a 1000 lire 

20% 

da 1001 a 2000 lire 

10% 

oltre 2000 lire 

5% 


Il costo unitario è determinato dividendo il prezzo della confezione 
per il numero dei pezzi contenuti. Scrivere un programma che calcoli 
il prezzo da segnare sul cartellino, cioè il costo unitario più il ricari¬ 
co. Stabilite i messaggi per l’immissione e gli ingressi come volete. 

9. Supponiamo che facciate un accordo per lavorare per 10 mila lire il 
primo giorno, 20 mila lire il secondo giorno, 40 mila lire il terzo, 80 
mila lire il quarto e così via. Siccome in un mese ci sono 22 giornate 
lavorative, scrivete un programma che calcoli la vostra paga per un 
mese di lavoro. 

10. Considerate la serie 


1 + 1/2+1/3+1/4 + ... 
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Scrivere un programma per trovare la somma dei primi N termini. 
Usatelo per trovare la somma dei primi 10. 100 e 1000 termini. Ba¬ 
sandovi su questi risultati, quale pensate che sarà il risultato se la¬ 
sciassimo andare avanti la serie all’infinito? 

11. Studiate il seguente programma. Sapete descrivere quello che fa? Sa¬ 
rà bene che usiate le tecniche di scoperta degli errori per risolvere il 
problema. 


100 

RERD N 


110 

LET L*1 


120 

LET Ol 


130 

READ X 


140 

LET OC ♦ 1 


150 

IF X<L THEN 

170 

160 

LET L=X 


170 

IF CCN THEN 

130 

180 

PRINT L 


190 

DATA 10 


200 

DRTR 5,83,17 

, 3, 1 

210 

DRTR 25,16,41,5 

220 

END 



Ulteriori informazioni su come il programma funziona possono esse¬ 
re ottenute inserendo la riga 165 come segue 

165 F'RINT "L E' ";L 
e avviando il programma. 

12. Il programma seguente dovrebbe trovare la media di N numeri battu¬ 
ti al terminale. Così com’è, il programma è sbagliato. Che cosa c’è 
che non va? 


100 PRINT "QUANTI NUMERI" 

110 INPUT N 
120 LET S a 0 
130 LET Ol 

140 PRINT “INSERISCI UN NUMERO"; 

150 INPUT X 

160 LET S=S + X 

170 LET OC + 1 

130 IF CCN THEN 140 

190 LET R=S/N 

200 PRINT "Lfi MEDIA E' ";fi 
210 END 
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13. Il prezzo scontato di un prodotto può essere calcolato con 
D = L*(l—R/100) 


dove L è il prezzo d'acquisto e R è il tasso di sconto in percentuale. 
Scrivere un programma che produca la seguente stampa quando vie¬ 
ne eseguito: 

PREZZO DI LISTINO (L) ? (Si immette il prezzo) 

TASSO DI SCONTO (%) ? (Si immette il tasso) 

IL PREZZO SCONTATO È 

(Il computer emette il prezzo) LIRE 

14. C’è una sequenza di numeri piuttosto interessante, chiamata "serie di 
Fibonacci”. Il gruppo comincia con 0, 1. Poi ogni numero successivo 
della sequenza è la somma dei due precedenti: 

0, 1, 1, 2, 3, 5, 8, ... 

Scrivere un programma BASIC che calcoli e stampi i primi venti nu¬ 
meri della sequenza di Fibonacci. 

15. Scrivere un programma che accetti l’immissione di due numeri. Se 
entrambi i numeri sono maggiori o uguali a 10, stampare la somma. 
Se entrambi i numeri sono minori di 10, stampare il prodotto. Se un 
numero è maggiore o uguale a 10 e l’altro è minore, stampare la dif¬ 
ferenza fra il maggiore e il minore. 

16. Un professore decide di usare delle lettere per dare i voti ad un esa¬ 
me, nel modo seguente: 

30 A 

26-29 B 

23-25 C 

18-22 D 

0-17 F 

Scrivere un programma che, quando avviato, dia il seguente prodot¬ 
to: 

IMMETTERE IL VOTO D’ESAME? (Si immette il voto numerico) 

IL VOTO È (Il computer emette A, B, C, D, E o F) 

17. Se ogni anno usate 1*8 per cento in più di elettricità, in nove anni il 
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vostro consumo raddoppierà. C’è una regola molto interessante, chia¬ 
mata regola del settantadue" che può essere usata per calcolare i 
tempi di raddoppio. Se una quantità cresce di R per cento in un certo 
periodo di tempo, allora il numero di periodi per cui la quantità rad¬ 
doppia è dato approssimativamente da 72/R. Possiamo calcolare la 
crescita direttamente sul computer. In un unico periodo una quantità 
Q cresce in accordo con la relazione 

Onuovo — Qvecc/iio(l +R/100) 

Possiamo seguire la crescita usando ripetutamente la suddetta rela¬ 
zione. Il tempo di raddoppio è il numero di periodi necessari al rad¬ 
doppio del valore di Q. Applicando questa definizione, scrivete un 
programma che produca la seguente uscita: 


TASSO DI CRESCITA (%)? (Si immette R) 

IL NUMERO DEI PERIODI DI CRESCITA 

PER IL RADDOPPIO È (Il computer scrive la risposta) 

Usate il programma per controllare la precisione della regola del set¬ 
tantadue per tassi diversi di crescita. 

18. Un gruppo di numeri interi è scelto a caso dal gruppo 1, 2, 3, 4 e 
messo in un'istruzione DATA. La fine del gruppo è segnata con il flag 
9999. Scrivere un programma BASIC che calcoli e stampi il numero 
di volte in cui compare l’uno, il due, il tre e il quattro nel gruppo. 
Provate il vostro programma sulla seguente istruzione DATA: 

URTE 3,1,2,1,4,4,1,2,2,2,3.9999 


5.6 Test di apprendimento 


Quale sarà il risultato se verrà eseguito il seguente programma? 

100 LET V=3 

110 LET X- 2*V 

120 PRINT X 

130 LET V=V+2 

140 IF VC=10 THEN 110 

150 END 
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2. Che cosa sarà emesso in uscita se verrà eseguito il seguente program¬ 
ma? 


100 READ X 
110 BfiTfl 1,2,3 
120 IF X<2 THEN 160 
130 IF X=2 THEN 150 
140 PRINT "BUONO" 

150 PRINT "MIGLIORE" 
160 PRINT "OTTIMO" 
170 PRINT 
180 GOTO 100 
190 END 


3. Supponete di decidere di comprare un certo numero di bottiglie di 
vino. Il produttore spinge le vendite offrendo dei prezzi scontati per 
acquisti in quantità. Il dettaglio dei prezzi è il seguente: 

Num. pezzi comprati Prezzo per bottiglia 

20 o meno 2000 lire 

da 21 a 50 1800 lire 

51 o più 1500 lire 

Scrivere un programma che produca la seguente uscita quando viene 
eseguito e poi continui a chiedere un nuovo input. 


QUANTE BOTTIGLIE? (Si immette la quantità) 

IL PREZZO PER BOTTIGLIA È (Il computer scrive il prezzo 
unitario) 

IL COSTO TOTALE DELL'ORDINE È (Il computer scrive il 
prezzo totale) 


4. Scrivere un programma che stampi lo schema numerico mostrato qui 
sotto e quindi si fermi. 

0 5 19 15 20 25 

30 35 40 45 50 55 

(ecc.) 


150 155 160 165 170 175 







Capitolo 


Iterazioni e funzioni 



6.1 Obiettivi 

ITERAZIONI 

Abbiamo già imparato come fare eseguire delle iterazioni (loop) nei pro¬ 
grammi usando sia le istruzioni di trasferimento incondizionato, che 
quelle di salto condizionato. Il BASIC del C-64 ha delle istruzioni speciali 
per fornire automaticamente l'iterazione. Queste istruzioni semplificano 
il compito del programmatore e aggiungono flessibilità ai programmi. 


FUNZIONI INCORPORATE 

Il BASIC contiene un certo numero di funzioni incorporate che possono 
essere richiamate per eseguire dei compiti specifici. Studieremo alcune 
delle funzioni più semplici che riguardano i calcoli numerici e vedremo 
come esse possano essere usate utilmente per i nostri programmi. 


ESEMPI DI PROGRAMMI 

Continueremo le attività per accrescere la pratica di programmazione. 
Ricordate che l’obiettivo generale del libro è quello di insegnarvi come si 
scrivono i programmi in BASIC. 
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6.2 Esercizi di scoperta 


1. Accendete il computer e la TV. Immettete il seguente programma: 


100 LET V*10 
110 PRINT V, 

120 LET V*V+5 

130 IF V<C=50 THEN 110 

140 END 


Studiate il programma ed eseguitelo. Annotate quello che è successo. 


Quale istruzione nel programma determina la differenza nei numeri 
che sono stati stampati? 


2. Cancellate il programma in memoria. Ora introducete il programma 
seguente: 


100 FOR V»10 T0 30 STEP 5 
110 PRINT V, 

120 NEXT V 
130 END 


Eseguite il programma e segnate qui sotto quello che e successo. 


Confrontate l'uscita con quella ottenuta dal programma del punto I. 

3. Dal momento che i due programmi appena eseguiti producono la 
stessa uscita, e ragionevole presumere che le istruzioni devono in 
qualche modo essere in relazione. Battete 

100 FOR v =10 T0 30 STEP 10 

Visualizzate il programma in memoria e studiatelo. Sapendo che FOR 
significa , per M , TO vuol dire "a”, STEP "passo" e NEXT 
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"successivo" che cosa pensate che succederà quando si esegue il pro¬ 
gramma ? 


Controllate se avevate ragione. Eseguite il programma e segnate qui 
sotto i risultati. 


4. Ora battete 

100 FOR V*0 TO 5 STEP 1 

Visualizzate il programma. Che cosa pensate che faccia? 


Eseguite il programma e scrivetene l'uscita. 


5. Ora battete 

100 FOR V=0 TO 5 

Visualizzate il programma. Che cosa pensate che faccia? 


Avviate il programma e annotate quello che è successo. 


Ora confrontate la riga 100 del programma appena eseguito con la ri¬ 
ga 100 del programma del punto 4. Se la differenza fra i numeri che 
devono essere stampati e I, è necessaria la parte STEP dell’istruzio¬ 
ne? 


6. Proviamo una tattica diversa. Battete 


100 FOR V=20 TO 10 STEP -2 
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Visualizzate il programma e studiatelo. Che cosa pensate che faccia 
questo programma? 


Eseguite il programma e registratene qui sotto l'uscita. 


7. Ora battete 

100 FOR V*10 TO 20 STEP -2 

Visualizzate il programma. Che cosa pensate che succeda ora se si 
esegue il programma? 


Eseguite il programma e segnate qui sotto quanto è avvenuto. 


Notate che il loop FOR NEXT è eseguito una volta, dato che il IO vie¬ 
ne stampato. Siete caduti in una trappola BASIC. Quale può essere il 
problema? 


8. Finora le dimensioni dei passi (STEP) nelle istruzioni FOR NEXT 
hanno funzionato senza problemi. Ora battete 

100 FOR V«2 TO 9 STEP 3 

Visualizzate il programma. Annotate quello che pensate che verrà 
stampato. 


Eseguite il programma e segnatevi quello che è successo. 


9. Passeremo ora ad alcune situazioni più complesse con le istruzioni 
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FOR NEXT. Cancellate il programma in memoria e immettete il pro¬ 
gramma seguente: 


100 FOR X»1 TO 3 
110 FOR Y«1 TO 4 
120 PRINT X.Y 
130 NEXT Y 
140 NEXT X 
150 END 


Eseguite il programma e registratene qui sotto l’uscita. 


10. Ora battete 

100 FOR X»1 TO 2 


Eseguite questo nuovo programma e registratene l’uscita. 


Confrontate i due schemi numerici che avete appena ottenuto. Riusci¬ 
te a scorgere il rapporto fra lo schema e i limiti delle istruzioni FOR 


NEXT? 


II. Modifichiamo ancora un po’ il programma. Battete 

100 FOR X*1 TO 3 
110 FOR V*1 TO 2 

Visualizzate il programma c studiatelo. Come pensate che si presen¬ 
terà l’uscita quando verrà eseguito? 


Provatelo e controllate se avevate ragione. 


12. Ancora una volta. Battete 







124 ITERAZIONI E FUNZIONI 


100 FOR X«1 TO 2 
110 FClR V«1 TO 2 

Visualizzate il programma e scrivete quello che pensate che verrà 
stampato quanto il programma verrà eseguito. 


Eseguite il programma e registratene qui sotto il risultato. 


Visualizzate il programma appena eseguito. Immaginate di tracciare 
una linea che vada dal numero di riga dell'istruzione FOR Y al nume¬ 
ro di riga dell'istruzione NEXT Y. Fate la stessa cosa per le istruzio¬ 
ni FOR X c NEXT X. Queste linee si incrociano? 


13. Ora battete 

100 FOR Y*1 TO 2 
110 FOR X=1 TO 2 

Visualizzale il programma. Quale pensate che sia l'uscita di questo 
programma? 


Eseguite il programma e scrivete che cosa è successo. 


Sul listato delle istruzioni del programma collegate il numero di riga 
di FOR Y con quello di NEXT Y, come avete fatto al punto 12. Fate 
la stessa cosa per le istruzioni FOR X e NEXT X. Le linee si incrocia¬ 
no? Confrontate con la stessa situazione al punto 12. 


La scritta NEXT WITHOUT FOR ERROR vi suggerisce un modo per 
evitare di mettervi nei pasticci nell’uso di più di una combinazione di 
FOR NEXT in un unico programma? 
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14. Nel capitolo precedente abbiamo fatto esperimenti con la funzione 
TAB per ottenere spaziature variabili in uscita. Ora che abbiamo le 
istruzioni FOR NEXT a nostra disposizione, torniamo alla funzione 
TAB. Cancellate il programma in memoria e immettete il seguente: 


100 FOR X=1 TO 5 
110 PRINT TPBOO, 
120 FOR V*X TO 5 
130 PRINT "V"; 

140 NEXT V 
150 PRINT 
160 NEXT X 
170 END 


Studiate con calma il programma. Che cosa pensate che produrrà in 
uscita? 


Controllate se avevate ragione. Eseguite il programma e annotatene 
qui sotto l'uscita. 


15. Cancellate il programma dalla memoria. Immettete il programma che 
segue. 


100 INPUT fi 
110 LET E=SGR(fi-' 
120 PRINT B 
130 DOTO 100 
140 END 


Eseguite il programma c al segnale di input, battete 4. Che cosa è 
successo? 


Ora immettete 9 e segnate il risultato. 


Ancora una volta. Battete 25. Che cosa è successo? 
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Per finire, immettete IO. Che cosa è successo? 


Bene, che succede ad A nell'espressione SQR(A) della riga 110 del 
programma? In altre parole, che cosa fa SQR? 


16. Fate uscire il computer dall'iterazione di input. Battete 
110 LET B=INT<fi) 

Eseguite il programma per i seguenti valori di A. In ciascun caso an¬ 
notate la risposta del programma. 


A Uscita 


I 

3.4 

256.78 

0 

-I 

-2.3 


Esaminate l'uscita che avete annotato qui sopra e confrontate cia¬ 
scun numero con il corrispondente valore di A che avete immesso. 
Che cosa fa la funzione 1NT(A)? 


Se avete avuto difficoltà nel capire che cosa succedeva ai valori nega¬ 
tivi di A, non ve ne preoccupate a questo punto. Faremo un ripasso 
completo dell'argomento più tardi. 

17. Fate uscire il computer dall'iterazione di ingresso. Battete 

110 LET B*SGN(fl> 

Visualizzate il programma e ripassatene la struttura per rinfrescarvi 
la memoria su come funziona. Eseguite il programma per ognuno dei 
valori di A. Per ciascun caso registratene l’uscita. 
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A Uscita 


1.5 

43 

128.3 

0 

-1 

- 1.2 

-345.7 

4.7 

-5.8 


Esaminate le uscite suddette attentamente. Che cosa fa la funzione 
SGN? 


18. Un'ultima funzione. Fate uscire il computer dall'iterazione di ingres¬ 
so. Battete 

110 LET B*fiBS< fi) 

Eseguite il programma per ciascuno dei valori di A dati qui sotto. Di 
nuovo registrate per iscritto l'uscita in ciascun caso. 

A Uscita 


3.4 _ 

0 _ 

-3.4 _ 

-2 _ 

-8.45 _ 

8.45 _ 

Esaminate l'uscita. Che cosa fa la funzione ABS? 


Interrompete il programma. 

19. E con ciò si conclude il lavoro sul computer per ora. Spegnete il 
computer e la TV e passate alla sezione successiva. 
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6.3 Analisi 

ITERAZIONI 

Nei capitoli precedenti abbiamo imparato come fare iterare i programmi 
sotto il controllo di istruzioni di salto. L'istruzione incondizionata (GO¬ 
TO) è utile, ma può a volte dar luogo ad un'iterazione senza via d'uscita. 
Le istruzioni condizionate (IF THEN) forniscono un modo per fare iterare 
il programma come si desidera e anche un modo per uscirne. Tutte que¬ 
ste tecniche sono buone. Il BASIC però ha un modo molto elegante di oc¬ 
cuparsi delle iterazioni togliendo un grosso peso dalle spalle del pro¬ 
grammatore. Analizzeremo ora questo nuovo metodo che usa le istruzioni 
FOR NEXT. 

Tutte le istruzioni FOR hanno la stessa struttura. Questa struttura e 
un’istruzione tipica sono illustrati qui sotto. 


A/° riga FOR variabile=espressione TO espressione STEP espressione 

120 FOR X*1 TO 9 STEP 2 

Nelle istruzioni FOR possono cambiare la variabile e le tre espressioni. 
Se lo STEP viene lasciato fuori dall’istruzione, il computer userà un pas¬ 
so =1. Possiamo scrivere molte forme diverse di istruzione FOR. Qui sot¬ 
to ne sono riportate alcune per illustrare la gamma delle possibilità. 


130 FOR J*2 TO 8 
130 FOR T=25 TO 10 STEP -2 
130 FOR W*-20 TO 10 STEP 2 
138 FOR X=3*Z TO fi*B STEP D 


In generale possiamo scrivere qualunque istruzione BASIC legale nei rap¬ 
porti coinvolti nell'istruzione FOR, ammesso che le variabili usate siano 
state naturalmente definite in modo appropriato nel programma. 
L’istruzione FOR apre un’iterazione. L’istruzione NEXT chiude l’iterazione. 


200 FOR X=2 TO 18 STEP 2 


(Apre l’iterazione) 
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Righe di programma all'interno dell'iterazione. 


340 NEXT X (Chiude l'iterazione) 


Nell'istruzione NEXT la variabile dev'essere la stessa dell'istruzione FOR 
che ha aperto l’iterazione. 


FOR apre l’Iterazione 
NEXT chiude l'Iterazione 


È importante capire a fondo come queste iterazioni funzionano. 
Nell'esempio suddetto, quando il programma raggiunge la riga 200 la pri¬ 
ma volta, X è posto uguale a 2. Poi il computer esegue le altre righe fino 
a che non raggiunge la riga 340. Questa chiude l'iterazione e dirige il 
computer di nuovo alla riga 200 e al successivo valore di X. in questo ca¬ 
so 4. Il computer sta nell’iterazione fino a che il valore di X non eccede il 
limite di 18. Poi, invece di passare attraverso le istruzioni all'intemo 
dell'iterazione, il computer salta al numero di riga che segue l’istruzione 
NEXT usata per chiudere l'iterazione. Osserviamo un esempio per vedere 
ancora una volta le istruzioni FOR NEXT in azione. 


100 LET R*1 

110 F0P X-l T0 6 STEP 2 
120 LET R*2*R 
130 PRINT R» X 
140 NEXT X 
150 END 


Siccome in questo programma sono coinvolte soltanto due variabili (A e 
X), elencheremo i numeri di riga nell’ordine in cui il computer le incon¬ 
tra e i corrispondenti valori delle variabili. 
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Numero di riga 

A 

X 

100 

1 


110 

1 

1 

120 

2 

1 

130 

2 

1 

140 

2 

1 

110 

2 

3 

120 

4 

3 

130 

4 

3 

140 

4 

3 

110 

4 

3 

120 

8 

5 

130 

8 

5 

140 

8 

5 

no 

8 

7* 

150** 




‘Esce dall’iterazione 
**I1 programma si ferma 


Studiate la sequenza di numeri di riga e i corrispondenti valori di A e X 
fino a che siete certi di capire come le istruzioni FOR NEXT controllano 
l'iterazione. 

Quando il programma gira, la linea 130 stamperà: 

2 1 

4 3 

8 5 


Sovente in un programma sono richieste delle strutture di iterazione più 
complicate. La struttura può essere complicata quanto si vuole ammesso 
però che le iterazioni non si incrocino. L’esempio seguente illustra un 
segmento di programma con delle iterazioni incrociate. 



100 FOR A=2 T0 20 
110 FOR B-4 T0 8 


Le iterazioni si incrociano! 

240 NEXT A 
250 NEXT B 
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Un altro esempio di iterazioni incrociale è 


— 100 FOR 1-0 TO 20 STEP 2 
I— 110 FOR R-10 TO 2 STEP -1 
120 FOR £=1 TO 4 

L'iterazione esterna va bene; quelle interne si incrociano! 


L- 170 NEXT R 

I- 180 NEXT B 

190 NEXT 1 


L’esempio seguente illustra una complicata struttura di iterazioni orga¬ 
nizzate in modo corretto: 



100 FOR X*1 TO 10 
110 FOR V=2 TO 4 

140 NEXT V 

170 FOR Z-l TO 5 

210 FOR K-20 TO 10 STEP -2 

270 NEXT K 

310 NEXT Z 

410 NEXT X 


In questo esempio abbiamo delle iterazioni doppie e iterazioni aU'intemo 
di iterazioni. Ricordate, tuttavia, che qualunque combinazione può essere 
usata in un programma purché le linee che collegano le istruzioni FOR e 
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le loro corrispodenti NEXT non si incrocino. Se si incrociano, il compu¬ 
ter segnala un errore e si ferma. 

Non incrociate le Iterazioni FOR NEXT! 


FUNZIONI INCORPORATE 

Uno dei vantaggi di un moderno computer è che gruppi di istruzioni pos¬ 
sono essere programmati in anticipo per svolgere determinati compiti. 
Numerose funzioni BASIC incorporate permettono al programmatore di 
eseguire delle operazioni matematiche molto complicate senza difficoltà. 
La tabella qui sotto mostra diverse di queste funzioni. 

Funzione Azione 


SQR(X) Radice quadrata di X 

INT(X) Parte intera di X 

SGN(X) Segno di X 

ABS(X) Valore assoluto di X 


La prima funzione. SQR(X), illustra come funzionano in generale le fun¬ 
zioni. Per prima cosa, X viene chiamato "argomento" della funzione, cioè 
"ciò su cui la funzione opera”. Se in un programma usiamo SQR(X), dia¬ 
mo istruzione al computer di prendere il valore di X ed estrarre la radice 
quadrata del numero. Per esempio 


SQR(36) = 6 
SQR (64) = 8 
SQR(81 ) = 9 
S0R(2) = +1.41421356 

e cosi via. L'unica limitazione è che non possiamo estrarre la radice qua¬ 
drata di un numero negativo. Se il computer cercasse di calcolare 
SQR(-6) per esempio, segnalerebbe ILLEGAL OUANTITY ERROR (quan¬ 
tità non ammessa) e si fermerebbe. 

L'argomento della funzione può essere tanto complicato quanto è neces¬ 
sario che lo sia nel programma. Se il computer si imbatte in un'espres¬ 
sione del tipo 


SQR(X + 4*Y) 

cercherebbe i valori di X e di Y, eseguirebbe i calcoli indicati e quindi 
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estrarrebbe la radice quadrata. Questa caratteristica è valida per tutte le 
funzioni. 

INT(X) prende la parte intera di X. Il termine "intero" è un modo per di¬ 
re "numero intero”. Cosi. 2 è un intero, mentre 23.472 non lo è. Se pren¬ 
diamo la parte intera di un numero, ci dimentichiamo semplicemente di 
tutto quello che segue il punto decimale. Così 

INT(3.1593) = 3 
INT(54.76) = 54 
INT(0.362) = 0 

I numeri negativi però richiedono speciale attenzione. Ouello che succede 
veramente quando si prende la parte intera di un numero è che si va al 
primo numero intero che sia uguale a quel numero o inferiore ad esso. 
Secondo questa regola vediamo che 

INT( - 2) = -2 

INT( —0.93) = -1 

c cosi via. Si noti attentamente che la funzione INT non arrotonda un nu¬ 
mero. Spesso i principianti hanno le idee poco chiare in proposito. 
SGN(X) è una funzione molto interessante. Se X (1‘argomento della fun¬ 
zione) è positivo. SGN(X), è + 1. Se X è negativo. SGN'(X) è - 1. Se X è 0. 
SGN(X) è 0. In effetti. SGN(X) fornisce il segno di X. sotto forma di +1, 
— I, o 0. Perciò 


SGN(4.568) = +1 
SGN(375) = +1 

SGN(O) = 0 

SGN( -5.93) = -1 
SGN( -4) = -1 

A questo punto vi può non essere chiaro perché una tale funzione possa 
essere utile. In realtà la funzione SGN è molto utile e ha varie applicazio¬ 
ni. Per ora ci accontenteremo di imparare come la funzione lavora. 
ABS(X) dice semplicemente al computer di ignorare il segno di X. In ef¬ 
fetti. converte tutti i valori di X. ad eccezione dello 0, in numeri positivi. 
Così 


ABS<4.5) = 4.5 

ABS< -4.5) =4.5 

ABS(95.34) = 95.34 

ABS< -95.34) = 95.34 
ABS(0) = 0 
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Ci sono molte altre funzioni incorporale nel BASIC. La maggior parte di 
queste, tuttavia, implica conoscenze matematiche superiori a quelle pre¬ 
sunte per questo libro. Se avete le conoscenze matematiche che vi per¬ 
mettano di capire che cosa fanno le funzioni, non avrete difficoltà ad im¬ 
parare ad usarle: fate riferimento al manuale di consultazione del C-64. 
Nel prossimo capitolo considereremo alcune funzioni che agiscono con le 
stringhe di caratteri. 

Le funzioni incorporate che abbiamo trattato sono usate nelle istruzioni 
BASIC. Esempi di righe di programma che utilizzano tali funzioni potreb¬ 
bero essere 

100 LET X=SQR(V> 

100 LET Z*3*INT<C)+ABS<D> 

Le funzioni incorporate possono essere usate all'interno di funzioni, come 
100 LET V*INT(SGR<X)+3*ABSCZ>> 

Qualunque espressione BASIC può essere 
argomento di funzioni BASIC 


6.4 Esempi di programmi 

I programmi seguenti mostrano come usare l’iterazione automatica e le 
funzioni incorporate per rendere più facile la programmazione. 


ESEMPIO I — MEDIA DI NUMERI 

Nel capitolo precedente, abbiamo usato come esempio di programma il 
problema di trovare la media. Torniamo allo stesso problema ma usiamo 
questa volta un metodo diverso. Vogliamo che il programma, quando vie¬ 
ne eseguito, produca la seguente uscita: 

QUANTI NUMERI? (Si immette) 

INSERIRE I NUMERI. UNO PER VOLTA 
? (Si immettono i numeri) 

LA MEDIA È (Il computer scrive la media) 

Le prime righe dovrebbero ora essere facili da scrivere. 


100 PRINT "QUANTI NUMERI 
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110 INPUT N 

120 PRINT "INSERIRE I NUMERI-UNO PER VOLTA” 


Dobbiamo ora provvedere aH’immissione di N numeri, ma dobbiamo an¬ 
che tenere a mente che dovremo calcolare la media dei numeri. Cosi, 
all'inizio renderemo S (che sarà usata per sommare i numeri) uguale a 0. 


130 LET S=0 


L'immissione di N numeri e la somma di essi è un compito ideale per le 
istruzioni FOR NEXT. 


140 FOR I«1 T0 N 
150 INPUT X 
160 LET S-S+X 
170 NEXT I 


Notate che non usiamo I, la variabile dell'iterazione, altro che per conta¬ 
re i numeri man mano che vengono immessi. Quando tutti i numeri sono 
stati immessi, il computer uscirà dall'iterazione per passare al numero di 
riga successivo al 170. Quando ciò succede, S contiene la somma di tutti i 
valori di X che sono stati immessi. Siccome sappiamo che N è il numero 
di numeri che sono stati immessi, siamo immediatamente in grado di cal¬ 
colare la media. 


180 LET A-S/N 

Il resto del programma segue senza difficoltà. 

190 PRINT "LA MEDIA E'"-A 
200 END 


Il programma completo è 

100 PRINT "QUANTI NUMERI 
110 INPUT N 

120 PRINT "INSERIRE I NUMERI-UNO PER VOLTA” 

130 LET S*0 

140 FOR I-l T0 N 

150 INPUT X 

160 LET S-S+X 

170 NEXT I 

180 LET A-S/N 

190 PRINT "LA MEDIA E'";A 

200 END 
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ESEMPIO 2 — TABELLA DI CONVERSIONE DELLE TEMPERATURE 

In uno dei precedenti programmi abbiamo usato la relazione 
C = 5/9 *(F — 32) 

per convertire i gradi Fahrenheit in gradi Celsius. Ora genereremo una 
tabella di conversione come segue: 

Gradi F Gradi C 


0 -17.77777 

5 -15 

IO -12.22222 

(ecc.) 

100 37.77777 

Per prima cosa dovremo stampare l’intestazione e la riga vuota; dopo, la 
tabella vera e propria. 

100 PRINT "GRADI F","GRADI C“ 

110 PRINT 


Possiamo usare un'iterazione FOR NEXT per generare i valori di F che 
possono essere convertiti in C e stampati. 


120 FOR F-0 T0 100 STEP 10 
130 LET C=3*<F-32V9 
140 PRINT F. C 
130 NEXT F 


Infine abbiamo bisogno dell’istruzione END. 
160 END 

L'intero programma è dato qui sotto. 


100 PRINT "GRADI F“,"GRADI C" 
110 PRINT 

120 FOR F«0 T0 100 STEP 10 
130 LET C=5«KF-32V9 
140 PRINT F,C 
130 NEXT F 
160 END 
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ESEMPIO 3 — DIVISIONE ESATTA 

Vogliamo ora scrivere un programma che calcoli tutti gli interi che divi¬ 
dono esattamente un altro numero intero. Per illustrare meglio la cosa, 
supponiamo di prendere 8 come numero intero di prova. Il problema è 
quello di trovare tutti i numeri interi che divideranno esattamente 8 sen¬ 
za nessun resto. La regola è 

Se N/X = INT(N/X) allora non c’è resto 
Se N/X < > INT(N/X) allora c’è un resto 

Scriviamo ora un programma che produca l’uscita seguente quando viene 
eseguito: 

INSERIRE UN NUMERO INTERO POSITIVO? (Si immette) 

I NUMERI CHE DIVIDONO (il numero) ESATTAMENTE SONO 
(II computer scrive il primo numero, 
il secondo numero, ecc.) 

Il programma comincia in modo facile. 

100 PRINT "INSERIRE UN NUMERO INTERO POSITIVO "i 
110 INPUT N 

120 PRINT "I NUMERI CHE DIVIDONO"INI"ESATTAMENTE SONO" 

Ora dobbiamo cercare tutti i numeri interi fra 1 e N. Naturalmente que¬ 
sto è l’ideale per le iterazioni FOR NEXT. Usando la regola data sopra, 
possiamo vedere se ciascun numero divide in modo esatto il numero im¬ 
messo. 

130 FOR X-l TO N 

140 IF N/X O INT<N/X) THEN 160 

150 PRINT X, 

160 NEXT X 

Infine abbiamo bisogno di un’istruzione END. 

170 END 

Il programma completo è 


100 PRINT "INSERIRE UN NUMERO INTERO POSITIVO 
110 INPUT N 
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120 PRINT -I NUMERI CHE DIVIDONO"iN;"ESATTAMENTE SONO" 

130 FOR X»1 TO N 

140 IF N/X O INT<N/X) THEN 160 

150 PRINT X, 

160 NEXT X 
170 END 


Potreste provare il programma usando dei valori piuttosto grandi di N. 
Come fareste per far eseguire il programma in metà tempo? 


ESEMPIO 4 — PIANO DI AMMORTAMENTO 

Quando una ditta fa degli investimenti in attrezzature, l’investimento vie¬ 
ne ammortizzato in un certo numero di anni a scopi fiscali. Questo signi¬ 
fica che il valore delle attrezzature decresce ogni anno (a causa deH'uso, 
del consumo) e l’ammontare della diminuzione è un elemento deducibile 
dalle tasse. Uno dei metodi usati per calcolare l'ammortamento è lo sche¬ 
ma della "somma delle cifre degli anni". Per illustrare meglio il concetto, 
supponiamo che un macchinario abbia una vita media di 5 anni. La som¬ 
ma delle cifre degli anni sarebbe 

1 + 2 -f 3 + 4 + 5 = 15 

L’ammortamento sarà il primo anno di 5/15 del valore iniziale. La quota 
di ammortamento del secondo anno sarà 4/15, e cosi via. Se il macchina¬ 
rio ha un valore iniziale di 3 milioni di lire, il piano di ammortamento è 
il seguente: 


Anno 


Quota di Valore corrente 

ammortamento Ammortamento del bene 


1 

2 

3 

4 

5 


5/15 

1000000 

2000000 

4/15 

800000 

1200000 

3/15 

600000 

600000 

2/15 

400000 

200000 

1/15 

200000 

0 


11 nostro problema è di scrivere un programma BASIC per generare dei 
piani di ammortamento con il metodo della somma delle cifre degli anni. 
L'uscita dovrebbe essere così: 
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QUAL È IL VALORE INIZIALE DEL BENE? (Si immette) 
QUAL È LA DURATA DEL BENE IN ANNI? (Si immette) 
FINE QUOTA AMMORT VALORE 
ANNO AMMORT CORRENTE 

DEL BENE 

(Il computer visualizza la tabella) 


Le prime righe del programma possono essere scritte senza alcuna spie¬ 
gazione: 


100 PRINT "QUAL E' IL VRLORE INIZIFILE DEL BENE 
110 INPUT P 

120 PRINT "QUAL E' LR DURATA DEL BENE IN RNNI "j 
130 INPUT N 
140 PRINT 

150 PRINT "FINE “,"QUOTA ”,"AMMORT ", "VRLORE" 
160 PRINT "ANNO", "AMMORTITASI.-, "CORRENTE" 

170 PRINT TRB-.30J, "DEL BENE" 


Poi dobbiamo calcolare la somma delle cifre degli anni. 

100 LET S=0 
130 FOR 1 = 1 TO N 
200 LET S=S+I 
210 NEXT I 


Ora calcoliamo lo schema e stampiamolo. Useremo la variabile PI per se¬ 
guire il valore corrente dei beni. 


220 LET P1=P 
230 FOR 1=1 TO N 
240 LET F«(N+1-IVS 
250 LET D=P*F 
260 LET P1=P1-D 

270 PRINT I, INT<F*100V1O0> INT<D/100)*100* 
INT<P1/100?*100 
280 NEXT I 


Nella riga 240, F è la quota di ammortamento per l'anno I. Potete con¬ 
trollarlo per vari valori di I per assicurarvi che l'espressione generi il va¬ 
lore esatto di F. Nella riga 250, D è l’ammortamento. Nella riga 270 i va¬ 
lori di D e PI sono arrotondati alle centinaia più vicine. Una approfondi¬ 
ta discussione sul metodo migliore di arrotondamento si trova nel primo 
esempio di programma del Capitolo 9. Ora l'unica cosa che manca è 
l'istruzione END. 
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290 ENI' 

Il programma completo è 


100 PRINT "QUAL E' IL VALORE INIZIALE DEL BENE ", 
110 INPUT P 

120 PRINT "QUAL E LA DURATA DEL BENE IN ANNI "j 
130 INPUT N 
140 PRINT 

150 PRINT "FINE “."QUOTA ".“AMMORT ", "VALORE" 

160 PRI NT " ANNO ", " AMMORT ”, TAB < 30 ;, " CORRENTE " 

170 PRINT TAB<30;,"BENE" 

180 LET 3=0 
190 FOR 1-1 TO N 
200 LET S=S*I 
210 NEXT I 
220 LET P1=P 
230 FOR 1=1 TO N 
240 LET F=<N*1-IVS 
250 LET D=P*F 
260 LET P1=P1-D 

270 PRINT I,INT(F*100)/100,INT<D/100;*100, 
INTCP1/100;*100 
280 NEXT I 
290 END 


6.5 Problemi 

I. Scrivete un programma per generare una tabella di numeri e le loro 
radici quadrate. La tabella dovrebbe apparire cosi: 


N 

SQRCN) 

2.0 

1.414214356 

2.2 

1.4832397 

2.4 

1.5491933 

(ecc.) 



2. Scrivete un programma che conti da 0 a 500 per decine e che scriva i 
risultati. 


3. Scrivete un programma che accetti in ingresso un numero N e poi scriva 
i numeri pari che sono maggiori di zero, ma minori o uguali a N. 
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4. Scrivete un programma per stampare una tabella di conversione da 
pollici a centimetri, sapendo che un pollice equivale a 2.54 centime¬ 
tri. Includete anche le opportune intestazioni. Iniziate la tabella a 0 e 
continuate fino a IO pollici con passi di mezzo pollice. 

5. Che cosa sarebbe stampato se il programma seguente fosse avviato? 


100 FOR X-10 TO 1 STEP -1 
110 PRINT TflBCX); "flBCDEFGHIJ" 
120 NEXT X 
130 END 


6. Studiate il programma seguente. Che cosa si avrà in uscita se fosse 
eseguito? 


100 FOR I«1 TO 3 
110 RERD fl 

120 LET B«INT<fl>-SGN(fl>»2 
130 PRINT B 
140 NEXT I 

150 DflTfi 2-2,-3,10,0,-1.3 
160 END 


7. Che cosa sarà stampato se eseguiamo il seguente programma? 


100 FOR X-l TO 10 
110 LET V«2*X 
120 FOR Z-l TO 5 
130 LET U-Z ♦ V 
140 FOR V»1 TO 3 
130 PRINT V ♦ U 
160 NEXT Z 
170 NEXT V 
180 NEXT X 
190 END 


8. Il programma seguente non funziona. Che cosa c'è che non va? 


100 FOR X—10 TO +10 STEP 2 
110 PRINT X, SQR(X) 

120 NEXT X 
130 END 
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9. Spiegate che cosa fa il programma seguente: 


100 FOR X»1 TO 5 
110 READ V 

120 LET Z-INT<100*V*.3V100 
130 PRINT Z 
140 NEXT X 

150 DATA 1.06142.27.5292,138.021 
160 DATA .423715.51.9132 
170 END 


10. Scrivete un programma per stampare la seguente figura di asterischi: 


* * * * * * * 
***** 

* * * 

* 


Non si devono usare più di due istruzioni PRINT! 


11. Spiegate cosa fa il seguente programma. 


100 LET A=-4 
110 LET B*ABS<A> 
120 LET OSQR<B) 
130 LET D»SGN(A)+C 
140 PRINT D 
150 END 


12. N! si legge "N fattoriale” ed equivale al prodotto di tutti i numeri 
compresi tra 1 e N (compreso). Per esempio 

3! = (1X2X3) = 6 
5! = (1X2X3X4X5) = 120 

e cosi via. Scrivete un programma che richieda l'input N, quindi cal¬ 
coli e scriva N!. Se provate questo programma sul computer potete 
essere sorpresi nel trovare che ci sono valori di N inferiori a 100 che 
producono fattoriali troppo grandi per poter essere trattati dal com¬ 
puter. Il fattoriale di N è una funzione che cresce in modo estrema- 
mente rapido. 

13. Scrivete un programma BASIC che richieda l'immissione di N voti. 
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Calcolare e stampare il voto più alto, il voto piu basso e la media dei 
voti. 


14. Nel seguente programma c’è qualcosa di sbagliato? Se si. che cosa? 


100 FOR X«1 TO 2 
110 FOR V«2 TO 6 
120 PRINT X+-V 
130 NEXT V 
140 FOR Z»1 TO 3 
150 PRINT X+Z 
160 NEXT X 
170 NEXT Z 
160 END 


15. Che cosa si avrà in uscita se verrà eseguito il programma seguente? 


100 FOR X»1 TO 4 
110 FOR V»1 TO 3 
120 LET Z-X*V 
130 PRINT Z; 

140 NEXT V 
150 PRINT 
160 NEXT X 
170 END 


16. Supponete di decidere di investire L 1000000 il primo dell'anno per 
IO anni al tasso di interesse annuo del 6 per cento. Alla fine dd deci¬ 
mo anno il valore dell’investimento sarà di L 13971640. Per vedere 
come questo possa essere calcolato, usate la seguente formula: 

CNUOVO = (CVECCHIO + 1(1 + R/100). 

In questa formula. R è il tasso di interesse annuo in percentuale, 1 è 
l'investimento annuo, CVECCHIO è il valore dell’investimento all ini¬ 
zio di ciascun anno, e CNUOVO è il valore dell'investimento alla fine 
dell'anno. Così, CNUOVO diventa CVECCHIO per l'anno successivo. 
Scrivere un programma che produca l’uscita seguente quando viene 
eseguito: 

INVESTIMENTO ANNUALE? (Si immette I) 

INTERESSE ANNUALE (%)? (Si immette R) 

QUANTI ANNI? (Si immettono gli anni) 

ALLA FINE DELL’ULTIMO ANNO IL VALORE 
DELL’INVESTIMENTO SARA (Il computer scrive la risposta) 
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17. Le istruzioni DATA qui sotto contengono le ore di lavoro effettuate 
da un certo numero di impiegati durante il periodo di una settimana. 

190 DATA 5 

200 DATA 2,4300,8.10,8,7,10 

201 DATA 5,3750.7,8,8,6,10 

202 DATA 1,3250.8,10,6,8,8 

203 DATA 4,5000,8,10,6,10,6 

204 DATA 3.4250.6,6,8,10,7 

11 numero della riga 190 dà il numero degli impiegati da seguire. Cia¬ 
scuna delle righe DATA dopo la riga 190 contiene le registrazioni set¬ 
timanali per un impiegato. I dati sono il numero di matricola dell'im¬ 
piegato. il salario orario e le ore di lavoro effettuate da lunedi a ve¬ 
nerdì. L'impiegato riceve una volta e mezza la paga oraria per tutte 
le ore eccedenti le 40 ore settimanali. Scrivere un programma BASIC 
usando queste istruzioni DATA per calcolare e stampare il numero di 
matricola dell'impiegato e la paga lorda settimanale per ciascuno de¬ 
gli impiegati. 

18. Supponiamo che le seguenti istruzioni DATA diano le votazioni degli 
studenti di un corso di inglese in tre esami: 

190 DATA 9 

200 DATA 3, 90, 85. 92 

201 DATA 1, 75, 80, 71 

202 DATA 6. 100, 82, 81 

203 DATA 5, 40, 55, 43 

204 DATA 2, 60, 71, 68 

205 DATA 4, 38, 47, 42 

11 numero della riga 190 è il numero di studenti del corso. Ciascuna 
delle istruzioni DATA che seguono dà il profitto per un singolo stu¬ 
dente. Le informazioni sono: il numero della tessera di riconoscimen¬ 
to dello studente, voto I. voto 2, voto 3. Come si vede dalla riga 202, 
lo studente 6 ha ricevuto i voti d’esame (in centesimi): 100, 82 e 8L 
Scrivere un programma che usi queste istruzioni DATA per calcolare 
e stampare per ciascun studente il numero della tessera di riconosci¬ 
mento e il voto del corso. Si presume che i voti dei primi due esami 
contino per il 25 per cento ciascuno rispetto al voto finale e che l'ul¬ 
timo voto conti per il 50 per cento. 
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6.6 Test di apprendimento 

1. Che cosa verrà stampato se sarà eseguito il seguente programma? 


100 FOR V*20 TO 1 STEP -2 
110 PRINT V, 

120 NEXT V 
130 END 


2. Che cosa verrà stampato se verrà eseguito il programma seguente? 


100 FOR ft«l TO 4 
110 FOR B-l TO 3 
120 PRINT ft*B; 
130 NEXT B 
140 NEXT fi 
130 END 


3. Completate gli spazi lasciati in bianco. 


a. SQR(36) =_ 

b. INT(7.13) = _ 

c. ABS( — 22.8) = 

d. SGN(- 1.3) = 


4. C'è qualcosa che non va nel programma seguente? Se si, che cosa? 


100 FOR I»1 TO 5 
110 FOR J*2 TO 5 
120 PRINT I, J 
130 NEXT I 
140 NEXT J 
150 END 
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5. Le miglia possono essere convertile in chilometri moltiplicando il nu¬ 
mero di miglia per 1.609. Scrivere un programma che produca la se¬ 
guente tabella quando viene eseguito. 

MIGLIA CHILOMETRI 

18 16.09 

20 32.18 

38 

(ecc.) 

100 160.9 


6. Delle informazioni numeriche sono accumulale in istruzioni DATA 
nel modo seguente: 

100 DATA 10 

110 DATfi 25,21,24,21,26,27,23,24,23,24 

Il numero della riga 100 indica quanti numeri devono essere elabora¬ 
ti nel resto delle istruzioni DATA. Scrivere un programma usando 
queste istruzioni per calcolare la media dei numeri escludendo quello 
contenuto nella riga 100. 






Capitolo 


Lavorare con gli array 



7.1 Obiettivi 


In questo capitolo applicheremo alle serie di numeri alcune delle idee ap¬ 
prese prima. Saranno introdotti nuovi concetti che espanderanno la vo¬ 
stra capacità di programmare in BASIC. Gli obiettivi sono i seguenti. 


VARIABILI CON INDICI SEMPLICI E DOPPI 

Vedremo che cosa sono le variabili con indici e come si usano per scrive¬ 
re programmi polenti. 


RISERVARE SPAZIO PER GLI ARRAY 

Prima che voi immettiate una serie di numeri nel calcolatore, il calcola¬ 
tore deve conoscerne le dimensioni. Imparerete a usare l'istruzione DIM 
per definire la grandezza dell'array. 


VARIABILI CON INDICI E ITERAZIONI FOR NEXT 

Quando si usano serie di numeri in un programma, quasi certamente il 
programma dovrà essere ripetitivo. Scoprirete come il loop FOR NEXT 
può aiutarvi a gestire gli array. 
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ESEMPI DI PROGRAMMI 

Studieremo dei programmi BASIC che mettono a profitto la potenza del¬ 
le variabili con indici (array). 


7.2 Esercizi di scoperta 


Poiché lavoreremo con serie di numeri, dobbiamo aggiungere al nostro 
vocabolario due termini importanti. Potremmo usare la parola serie per 
descrivere un gruppo di numeri, ma di fatto altre due parole sono più 
usate: matrice e vettore. Per i nostri scopi entrambe significano la stessa 
cosa: una "serie di numeri” o array. 

Ouando lavorate con gli array dovete essere in grado di distinguere un 
numero in un array dagli altri numeri. Gli indici vi aiutano a distinguere 
i numeri in un array o in una matrice. 

MATRICE e ARRAY significano "serie di numeri" 

Per vedere come funziona, diamo uno sguardo all'array qui sotto esposto. 

Y, = 9 
Y, = 10 
Yj = 7 
Y« = 14 
Y, = 12 
Y, = 15 

Il nome dell'array è Y. La sua dimensione è 6. dal momento che in esso ci 
sono 6 elementi (o numeri). I numeri 9, 10, 7, 14. 12 e 15 sono gli elementi 
dell’array. 1 numeri stampati a destra e leggermente più in basso delle Y 
sono chiamati indici: ciascun indice semplicemente punta ad un elemento 
dell'array. Cosi Y(4) significa il quarto numero dell'array, che in questo 
caso è 14. Leggiamo Y(4) come "Y di quattro”. Il terzo numero dell'array 
sarebbe chiamato "Y di tre”, e così via. Questo array é monodimensiona¬ 
le. giacche usa un solo numero (o indice) per localizzare un certo elemen¬ 
to dell'array. 

Osserviamo ora un esempio un po' più complicato: 

Z,, = 4 Z u = 9 Z u = 5 
Z^i — 3 Zìi ~ 8 Zjì — 7 

In questo esempio ci sono sei elementi nell'array Z. Questo però è un ar- 
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ray bidimensionale, dal momento che dobbiamo specificare quale riga e 
colonna vogliamo. Il primo indice ci dà il numero di riga; il secondo spe¬ 
cifica la colonna. Z(2,l) si legge "Z di due uno” e significa l'elemento di 
Z alla seconda riga della prima colonna. Parimenti, l'elemento alla riga 1, 
colonna 3. sarebbe identificato come Z(l,3) e sarebbe letto "Z di uno tre". 
Riassumendo, lavoreremo con due tipi di matrice o array. L'array mono¬ 
dimensionale (noto anche come "vettore" in italiano) ha bisogno di un so¬ 
lo numero per individuare un elemento deU’array. L'array bidimensiona¬ 
le ha bisogno di due numeri (un numero di riga e un numero di colonna) 
per localizzare un elemento. 

1. Accendete il computer e la TV e immettete il seguente programma: 

100 LET X<1>=21 
110 LET X<2>=13 
120 LET X<3>*16 
130 LET X<4>=8 
140 LET X(5)-ll 
130 PRINT XU> 

160 END 

Che cosa pensate che verrà scritto se il programma viene eseguito? 


Eseguite il programma e segnate quello che è successo. 


2. Ora modificate il programma per scrivere il quarto valore di X. Ese¬ 
guite il programma. Ha funzionato? 


3. Bene, battete 

150 PRINT X<3) ♦ X<4> 


Visualizzate il programma e studiatelo brevemente. Che cosa pensate 
che succeda se eseguite il programma? 


Eseguite il programma e vedete se avevate ragione. Annotate qui sot¬ 
to quello che in realtà è stato scritto. 
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4. Battete 


150 FOR 1-1 TO 5 
152 PRINT X(I) 
154 NEXT I 


Visualizzate il programma. Che cosa pensate che verrà scritto da que¬ 
sto programma? 


Vedete se avevate ragione. Registrate qui sotto quello che è successo 
quando avete eseguito il programma. 


5. Modificate questo programma per far stampare solo i primi tre valo¬ 
ri dell'array X. Annotate qui sotto quanto è successo quando avete 
provato a fare questo. 


6. Cancellate il programma in memoria. Immettete il seguente program¬ 
ma: 


100 LET V<1,1>«2 
110 LET V<1> 2>=5 
120 LET VC1< 3>*1 
130 LET V<2,1>«2 
140 LET V<2,2/«4 
150 LET V<2j 3>*3 
160 PRINT V<1,3> 
170 END 


L’array creato da questo programma ha le seguenti righe e colonne: 



Visualizzate il programma e assicuratevi di averlo immesso in modo 
esatto. Che cosa pensate che faccia questo programma? 
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Eseguite il programma e annotate quello che è stato scritto. 


8. Battere 

160 PRINT Y<2,2> ♦ V<1,3> ♦ V(L1) 


Visualizzate il programma. Che cosa farà questo programma quando 
verrà eseguito? 


Avviate il programma e vedete se avevate ragione. 


9. Battere 

160 LET S*0 

162 POR J-l TO 3 

164 LET S-S+VC1,J) 

166 NEXT J 
166 PRINT S 

Visualizzate il programma e studiatelo attentamente. Che cosa acca¬ 
drà se il programma viene eseguito? 


Eseguite il programma e registrate qui sotto quello che è stato visua¬ 
lizzato. 


Spiegate con parole vostre quello che avviene nel programma. 


10. Battete 

162 FOR 1*1 TO 2 
164 LET S*S+Va.2> 
166 NEXT I 


Visualizzate il programma. Che cosa fa ora? 
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Eseguite il programma e scrivete quello che è stato stampato. 


Ancora una volta cercate di spiegare con parole vostre quello che 
succede. 


11. Ora battete 

164 FOft J«1 TO 3 
166 LET S=S+V<I,J) 
168 NEXT J 
170 NEXT I 
172 PRINT S 
180 END 


Visualizzate il programma e pensateci su un minuto. In particolare, 
confrontate quello che vedete ora con quello che succedeva nei punti 
9 e 10. Che cosa fa questo programma? 


Eseguite il programma e annotate quello che è stato scritto. 


12. Cancellate il programma dalla memoria. Battete il programma se¬ 
guente: 


100 

Din : 

X( 12)t 

V(12) 

110 

FOR 

1-1 

TO 

12 

120 

READ 

X(I>, 

V(I> 

130 

NEXT 

I 



140 

PRINT X<1> 

♦ V<4> 

150 

DATA 

2, 

1 


151 

DATA 

-1 

i 3 


152 

DATA 

5» 

6 


153 

DflTR 

2. 

4 


154 

DATA 

2, 

1 


155 

DATA 

8- 

4 


156 

DATA 

5, 

1 


157 

DATA 

3. 

4 


158 

DATA 

6, 

2 


159 

DATA 

li 

1 


160 

DATA 

7, 

7 


161 

DATA 

Si 

3 


170 

END 
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Visualizzate il programma e controllate di averlo immesso giusto. 
Studiatelo attentamente. Se eseguite il programma, che cosa verrà 
scritto? 


Eseguite il programma e vedete se avevate ragione o no. Annotate qui 
sotto quello che è stato scritto. 


13. Battere 
100 

Ora visualizzate le prime righe del programma battendo LIST 100- 
150. Che cosa è successo? 


Eseguite il programma e annotate quello che è successo. 


Appare un BAD SUBSCRIPT ERROR in 110. Vi pare che l'istruzione 
DIM, originariamente presente nel programma, sia necessaria? 


14. Battete in modo diretto l’istruzione 
PRINT I 

Qual è stato l'indice (I) più grande che il computer ha accettato? 


15. Battere 

100 DIM X<9>, V<9> 

110 FOR 1*1 T0 9 

Visualizzate il programma. Che succederà ora se avviate il program¬ 
ma? 
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Provatelo e vedete un po’ se avevate ragione. 


16. Battete 
100 


Ora che l'istruzione DIM è stata tolta il programma funzionerà ugual¬ 
mente? 


Provatelo e registratene qui sotto l'uscita. 


Confrontate i risultati del punto 13 con quelli del punto 16. Qualche 
volta l'istruzione DIM ci dev'essere e altre volte non è necessario che 
ci sia. Torneremo sull'argomento più tardi. 


17. Cancellate il programma in memoria. Battete il seguente programma: 


100 DIM A<4,3) 

110 FOR 1*1 TO 4 
120 FOR J*1 TO 3 
130 READ A<I,J> 
140 NEXT J 
150 NEXT I 
160 FOR 1*1 TO 4 
170 FOR J-l TO 3 
180 PRINT A<I,J>, 
190 NEXT J 
200 PRINT 
210 PRINT 
220 NEXT I 
230 DATA 1*3/1 
240 DATA 4/2/5 
250 DATA 1/4,2 
260 DATA 3,2/5 
270 END 


Assicuratevi di avere immesso correttamente il programma, poi stu- 
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diatelo per qualche minuto. Riuscite a immaginare quello che verrà 
scritto? 


Eseguite il programma e annotatene l'uscita. 


Confrontale quello che è stato stampato con i numeri delle istruzioni 
DATA nel programma. 


18. Cancellate il programma dalla memoria e immettete poi il program¬ 
ma seguente: 


100 DIM fl<2,2> 

110 FOR 1-1 TO 2 

120 INPUT fi(I j1>I*2> 

130 NEXT I 

140 PRINT 

150 PRINT 

160 FOR 1=1 TO 2 

170 FOR J«1 TO 2 

180 PRINT fi<I,J>; 

190 NEXT J 
200 PRINT 
210 NEXT I 
220 END 


Eseguite il programma e quando compare il segnale di input, battete 

2.5 

3.8 


Che cosa è successo? 


Confrontate l'uscita con i numeri che avete immesso. 

19. Cancellate il programma in memoria. Poi immettete il programma se¬ 
guente: 


100 Din X(3>3) 
110 FOR >1 TO 3 
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120 FOR J-l TO 3 
130 READ X(I*J> 
140 NEXT J 
150 NEXT I 
160 PRINT 
170 PRINT 
180 FOR 1-1 TO 3 
190 FOR J-l TO 3 
200 PRINT X(I*J>; 
210 NEXT J 
220 PRINT 
230 NEXT I 
240 DfiTfi 2*1*3 
250 DfiTfi 4*7,5 
260 DfiTfi 1*2*6 
270 END 


Eseguite il programma. Che cosa è successo? 


Confrontate l'uscita con i numeri contenuti nelle istruzioni DATA. 

20. Con ciò si conclude per questo capitolo il lavoro sul computer. Spe¬ 
gnete il computer e la TV. 


7.3 Analisi 


A questo punto potreste avere idee un po' confuse a proposito degli ar- 
ray. Il materiale di questa analisi dovrebbe chiarire qualunque dubbio 
che sia potuto sorgere durante il lavoro sul computer. 


VARIABILI CON INDICI SEMPLICI E DOPPI 

La necessità di avere dei numeri con indici diventa evidente quando dob¬ 
biamo trattare grandi raccolte di numeri. Se, per esempio, stessimo scri¬ 
vendo un programma che coinvolge solo quattro numeri, non avremmo 
difficoltà nel dar loro un nome. Potremmo chiamare i numeri X, Y, U e 
V. Ma se si dovesse lavorare con 100 numeri? Per questo motivo è spesso 
molto utile avere dei numeri con indici. Fortunatamente il BASIC ha la 
possibilità di avere gli indici, pronti all'uso. 
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Considerate il seguente gruppo di numeri: 

J_Y|_ 

1 14 

2 8 

3 9 

4 II 

5 16 

6 20 

7 5 

8 3 

Possiamo riferirci all'intero gruppo di numeri con l'unico nome Y. Cosi, 
Y è una raccolta di numeri, una matrice, o un array, significando questi 
tre nomi approssimativamente la stessa cosa per i nostri scopi. Per indi¬ 
viduare un numero in un array. dobbiamo avere il nome dell’array (in 
questo caso Y) e la posizione neU'array. Qui è dove viene usata la colonna 
I. Cosi Y(3) (che leggiamo "Y di tre”) individua il terzo numero neU’array 
Y. In questo caso. Y(3) ha il valore di 9. Similmente, Y(7) è 5. Y(l) è 14. e 
cosi via. Possiamo assegnare le norme Y(I) (che sarebbe pronunciato "Y 
di I”), a qualunque elemento dell'arrav dipendente dal valore di I. Se I 
fosse 7, allora Y(l) sarebbe 5 nel nostro esempio. Questa serie di numeri 
è monodimensionale, giacché solo un numero (indice) è necessario per lo¬ 
calizzare un qualsiasi elemento neU'array. 

Ora diamo uno sguardo ad un array bidimensionale. 


Y (J 

1 

2 

3 

4 

1 

3 

-1 

10 

8 

2 

2 

4 

5 

6 

3 

1 

-2 

9 

3 


Ora ci servono due numeri per localizzare un elemento neU'array. Dato 
un numero di riga e un numero di colonna, possiamo trovare qualunque 
elemento vogliamo neU’array. Per esempio, Y( 1,3) significa l’elemento di 
Y situato alla riga 1, colonna 3. NcU'csempio suddetto l'elemento ha il 
valore 10. In generale, si denota un elemento in un array bidimensionale 
come Y(1,J). Il primo indice (I) è il numero di riga, e il secondo indice (J) 
è il numero di colonna. 

I doppi Indici definiscono i numeri di riga e di colonna 

Per essere sicuri che comprendiate come sono usati i doppi indici, fate 
riferimento all’array bidimensionale della tabella riportata sopra e verifi- 


158 LAVORARE CON GLI ARRAY 


cale che le affermazioni seguenti siano corrette: 

Y ijt = -2 

Y„ = 8 
Y,, = 9 
Yj.i - 2 

Il computer può interpretare gli indici in forma di espressioni così 
X(M-N + 3,S*T) è corretto, ammesso che il computer possa convertire 
M-N+3eS*T in numeri. Persino Y(Y(1,1),Y(2,3)) va bene fin tanto che il 
computer può localizzare i numeri in Y( 1.1) e Y(2,3). C'è però un punto 
importante da ricordare. Supponiamo di voler vedere X(A + B) dove 
A = 2.6 e B = 1.1. Allora A + B = 3.7. Ma non ha alcun senso cercare di 
vedere il 3.7° numero nell'array X. In questo caso, il computer prende¬ 
rebbe la parte intera di 3.7 e X(A + B) risulterebbe essere X(3), il quarto 
elemento dell'array X. 


RISERVARE SPAZIO PER GLI ARRAY 

Il computer deve sapere quant’è grande una matrice per due motivi: pri¬ 
mo, c'è la questione di quanto spazio riservare in memoria per contenere 
la matrice. Poi, il computer deve conoscere la dimensione della matrice 
per poter effettuare in modo appropriato le operazioni aritmetiche. In 
realtà, per le matrici piccole, il BASIC riserva spazio automaticamente. 
Se in un programma viene usata una matrice monodimensionale, il BA¬ 
SIC riserva automaticamente spazio per dieci elementi, se non vi è 
un'istruzione DIM. Se viene usata una matrice bidimensionale, riserverà 
spazio in memoria abbastanza per una matrice di dieci per dieci, sempre 
se non vi è nel programma alcuna istruzione DIM. È forse poco saggio 
usare questa caratteristica del BASIC. In questo libro metteremo l'accen¬ 
to sull’uso abituale di istruzioni di dimensionamento in tutti i program¬ 
mi, indipendentemente dalle dimensioni delle matrici. 

Riservare spazio con un'istruzione DIM 

Un esempio di istruzione DIM (che sta per "dimensione’') è 
100 DIM BC5/20).V(8><Z<34),X(3*6> 

In questa istruzione sono dimensionati quattro array. B è una matrice bi¬ 
dimensionale con cinque righe e venti colonne. Y è un array monodimen¬ 
sionale con otto elementi; Z è monodimensionale, con trentaquattro ele¬ 
menti. Infine X è una matrice bidimensionale con tre righe e sei colonne. 
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L'istruzione DIM deve venire prima di qualunque altra istruzione che si 
riferisca agli array. Come indicato sopra, è buona pratica usare un istru¬ 
zione DIM in tutti i programmi. Dovrete perciò dare un’occhiata all'inizio 
del programma per vedere le misure degli array che saranno usati. 


VARIABILI CON INDICI E ITERAZIONI FOR NEXT 

Dal momento che gli indici individuano serie di numeri e le operazioni 
con serie di numeri quasi sempre implicano ripetizioni, sembra ragione¬ 
vole usare le istruzioni FOR NEXT per trattare le matrici. Come esem¬ 
pio, il seguente segmento di programma costituisce un array 6 per 4. poi 
carica dei cinque in tutti gli elementi. 


100 OIM FK6.4) 
110 FOR R-l TO 6 
120 FOR C-l TO 4 
130 LET R(R< 0*5 
140 NEXT C 
150 NEXT R 


Se studiamo questo segmento di programma, i dettagli del processo di¬ 
ventano chiari. Quando la riga 130 del programma viene raggiunta la pri¬ 
ma volta, R = 1 e C = 1. Quindi R viene tenuto costante mentre C va a 2, 
3 e 4. Ad ogni passo nel processo, il corrispondente elemento della matri¬ 
ce è posto uguale a 5. Poi R è posto uguale a 2. e C prende i valori 1, 2, 3 
e 4. Il processo continua fino a che tutti gli elementi dell array non siano 
stati resi uguali a 5. 

Sia gli array ad una che quelli a due dimensioni possono essere trattati 
in questo modo usando gli indici. In molle applicazioni è preferibile usa¬ 
re le iterazioni FOR NEXT per eseguire le operazioni desiderate sulle 
matrici. 


7.4 Esempi di programmi 

ESEMPIO I — VOTI D'ESAME 

Per illustrare il concetto di array monodimensionale (vettore), prendiamo 
ad esempio un gruppo di voti di esame. I seguenti sono i risultati di un 
esame sostenuto da una classe di 15 studenti: 
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Numero 

studente 

1 2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

Voto 

6.5 8 

9.5 

7.5 

4.5 

6.5 

9 

9 

7.5 

7 

6.5 

8 

7,5 

7 

7 


Il problema è scrivere un programma BASIC per permettere l'immissione 
dei suddetti voti. Il formato è: 


OC ASTI STUDENTI? 
STUDENTE 
1 
2 
3 

(ecc.) 


(Si immette il numero) 
VOTO 

(Si batte il voto) 
(Si batte il voto) 

(Si batte il voto) 
(ecc.) 


II programma deve calcolare la media della classe, il voto più alto e il vo¬ 
to più basso, e stampare queste informazioni come segue: 

LA MEDIA DELLA CLASSE È (Il computer scrive la media) 

IL VOTO PIU ALTO £ (11 computer scrive il voto più alto) 

IL VOTO PIÙ BASSO È (Il computer scrive il voto più basso) 

Come negli esercizi precedenti, affrontiamo il problema per gradi. Primo, 
siccome memorizzeremo i voti degli studenti con degli indici, dobbiamo 
mettere un'istruzione DIM per risparmiare spazio per l'array. 

100 DII*I V(50) 


Usiamo la variabile V per memorizzare i voti: possiamo inserirvi fino a 
cinquanta voti. Poi avremo un messaggio, un'immissione e uno spazio. 


110 PRINT "QURNTI STUDENTI M ; 
120 INPUT N 
130 PRINT 


Per prima cosa deve essere generata l'intestazione della tabella. 


140 PRINT "STUDENTE ", "VOTO" 
150 PRINT 


Ora siamo pronti per immettere i voti. Un'iterazione che usi le istruzioni 
FOR NEXT è l'ideale per controllare l'immissione dei voti. 


LAVORARE CON GLI ARRAY 161 


160 FOR X«1 TO N 
170 PRINT I, 

180 INPUT V<I) 
190 NEXT I 


Il numero dello studente viene emesso nella riga 170. Nella riga 180 il 
numero dello studente (I) viene usato come indice per il voto. In tal modo 
vengono generati nel computer i voti nella forma V(l), V(2),... t V(n). Il 
campito successivo è quello di trovare la media dei voti. Questo si può 
fare facendo la somma di tutti i voti e dividendo per il numero dei voti. 


200 LET S*0 
210 FOR 1 = 1 TO N 
220 LET S=S+V<I> 
230 NEXT I 
240 LET M=S/N 


Ora possiamo calcolare la media e far scrivere il risultato. 

230 FRINT 

260 PRINT "LA MEDIA DELLA CLASSE E'";M 

I-a parte finale del programma individua e scrive il più alto e il più basso 
dei voti della classe. A e B staranno rispettivamente per il più alto e il 
più basso dei voti. Inizialmente renderemo sia A che B uguali a V(l), il 
primo voto della lista. Sappiamo che lo stesso voto non potrà essere nello 
stesso tempo il più alto e il più basso. Così, faremo passare il resto dei 
voti, confrontando A e B con ciascun voto, e faremo ad A e B gli aggiu¬ 
stamenti necessari a seconda delle necessità. 


270 LET A*V<1) 

280 LET B»V(1) 

290 FOR 1=2 TO N 
300 IF BCVCI) THEN 320 
310 LET B=V< I> 

320 IF A>V(I> THEN 340 
330 LET A=V(I) 

340 NEXT I 


L'uscita dei dati si può ottenere con due righe. 


350 PRINT "IL VOTO PIU' ALTO E'",A 
360 PRINT "IL VOTO PIU' BASSO E'“.B 


Infine l’istruzione END completa il programma. 
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370 END 

Segue il programma completo: 


100 DIM V<50> 

110 PRINT •QUANTI STUDENTI 
120 INPUT N 
130 PRINT 

140 PRINT "STUDENTE"* “VOTO" 

150 PRINT 

160 FOR 1*1 TO N 

170 PRINT I, 

180 INPUT V(I> 

130 NEXT I 
200 LET S-0 
210 FOR I-l TO N 
220 LET S-S*V<I> 

230 NEXT I 
240 LET M-S/N 
250 PRINT 

260 PRINT "LA MEDIA DELLA CLASSE E'",M 
270 LET A*V(1) 

280 LET B-V(l) 

290 FOR >2 TO N 
300 IF B<V<I) THEN 320 
310 LET B=V(I> 

320 IF A>V<1) THEN 340 
330 LET A*V(I> 

340 NEXT I 

350 PRINT “IL VOTO PIU' ALTO E'* « A 
360 PRINT "IL VOTO PIU' BASSO E'".B 
370 END 


Accendete il computer e la TV. ed eseguite questo programma usando i 
dati riportati all'inizio. Se avete qualche difficoltà con le ricerche del vo¬ 
to più alto e del più basso nelle righe da 270 a 340. esaminate in dettaglio 
il programma. 


ESEMPIO 2 — VOTI DEL CORSO 

Possiamo facilmente estendere le idee dell'esempio 1 ad un array bidi¬ 
mensionale. Supponiamo ora di avere una classe di dieci studenti e che il 
voto finale si basi su cinque prove d'esame con votazione in centesimi. 
Dei risultati tipici per una classe di questo tipo potrebbero essere 
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Numero studente 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

isame 1 

92 

71 

81 

52 

75 

97 

100 

63 

41 

75 

2 

85 

63 

79 

49 

71 

91 

93 

58 

52 

71 

3 

89 

74 

80 

61 

79 

88 

97 

55 

51 

73 

4 

96 

68 

84 

58 

80 

93 

95 

61 

47 

70 

5 

81 

72 

82 

63 

73 

92 

93 

68 

56 

74 


Usiamo una matrice con l'istruzione FOR NEXT per leggere (READ) da 
un'istruzione DATA. Il computer deve calcolare ed emettere le seguenti 
informazioni: 

STUDENTE MEDIA DEL CORSO 

1 (II computer stampa la media, ecc.) 

2 
3 

ecc. 

ESAME MEDIA DELLA CLASSE 

1 (Il computer stampa la media, ecc.) 

2 

3 

ecc. 

Il programma deve iniziare con un’istruzione DIM. 

100 Din G<5,10> 

Questa istruzione riserva spazio in memoria per un array con 5 righe e 
IO colonne. Il numero di riga (R) sarà il numero dell’esame, e il numero 
di colonna (C) corrisponderà al numero dello studente. Inseriamo le istru¬ 
zioni DATA a questo punto: 


110 DATO 92.71,81.52,73,97, 100.63,41.75 
120 DATA 85,63.79.49,71,91,93,58,52,71 
130 DATA 89,74,80,61,79,28,97.55,51,73 
140 DATA 96,68,84,58,80,93,95,61,47,70 
150 DATA 81,72.82.63,73,92,93,68,56,74 


Le seguenti istruzioni FOR NEXT. con l’istruzione READ alla riga 180, 
rendono disponibili tutti i dati al computer: 

160 FOR R=1 T0 5 
170 FOR C=1 T0 10 
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180 READ G<R,C> 
190 NEXT C 
200 NEXT R 


Questo fa si che i numeri vengano letti e immessi nella matrice G per ri¬ 
ghe. Così, i dati della riga 110 diventano la riga I della matrice G, e cosi 
via. Prima di fare qualunque altra cosa, dobbiamo far stampare le neces¬ 
sarie intestazioni. 

210 PRINT "STUDENTE"i"MEDIA DEL CORSO" 

220 PRINT 


Ora possiamo calcolare la media del corso per ciascuno studente. 

230 FOR C«1 T0 10 

La riga 230 apre un'iterazione che va a vedere ogni colonna della matri¬ 
ce. Per ciascun valore di C, dobbiamo calcolare la media della colonna e 
fame scrivere il risultato. 


240 LET S-0 

250 FOR R»1 T0 5 

260 LET S»S ♦ GCR/C) 

270 NEXT R 

280 PRINT C-S/5 


Poi chiudere l’iterazione C. 
290 NEXT C 


Ora il procedimento viene ripetuto, con la differenza che adesso le medie 
sono calcolate per righe, invece che per colonne. 1 risultati rifletteranno 
la media della classe in ciascun esame. 


300 PRINT 

310 PRINT "ESAME "> "MEDIR DELLA CLASSE" 

320 PRINT 

330 FOR R-l T0 5 

340 LET S=0 

350 FOR C«1 T0 10 

360 LET S=S ♦ GCR/C) 

370 NEXT C 
380 PRINT R,S/10 
390 NEXT R 
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E infine l'istruzione END: 

406 END 

Il programma completo è elencato qui sotto: 


160 Diti G<3.10) 

110 DATA 92.71.81-52.75,97,100,63,41,75 
120 DATA 85,63.79,49,71,91,93,58,52,71 
130 DATA 89,74,80.61.79,88,97,55,51,73 
140 DATA 96,68,84,58,80,93,95,61,47,70 
150 DATA 81,72,82,63,73,92.93,68,56,74 
160 FOR R=1 TO 3 
170 FOR C=1 TO 10 
180 READ GCR.C) 

190 NEXT C 
200 NEXT R 

210 PRINT "STUDENTE","NEDIR DEL CORSO" 

220 PRINT 

230 FOR C-l TO 10 

240 LET £=0 

250 FOR R=1 TO 5 

260 LET S=S ♦ G(R.C) 

270 NEXT R 
280 PRINT C,S/5 
290 NEXT C 
300 PRINT 

310 PRINT "ESAnE"."NEDIR DELLA CLASSE" 

320 PRINT 

330 FOR R*1 TO 5 

340 LET S=*0 

350 FOR C*1 TO 10 

360 LET S*S ♦ GCR.C) 

370 NEXT C 
380 PRINT R.S/10 
390 NEXT R 
400 END 


Questo programma è interessante e illustra importanti tecniche di pro¬ 
grammazione con gli array. Vale la pena studiarlo ed eseguirlo sul com¬ 
puter. 


ESEMPIO 3 — OPERAZIONI SUGLI ARRAY 

Segue una serie di brevi programmi che saranno dati senza spiegazioni. 
Studiate ciascun programma fino a che non siate sicuri di capire quello 
che succede. 
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a. Il programma usando iterazioni FOR NEXT carica una matrice tre per 
quattro con degli 1. 


100 DIM X<3,4> 
110 FOR R=1 TO 3 
120 FOR Ol TO 4 
130 LET XlR, 0 = 1 
140 NEXT C 
150 NEXT R 
160 END 


b. Ouesto programma genera e carica i numeri 
2. 4. 8. 16, 32, 64, 128, 256, 512, 1024, 2048 
in un array monodimensionale 


100 DIM 2ai) 

110 LET Z<1>=2 
120 FOR 1=2 TO 11 
130 LET Z<I>«2*Z(1-1) 
140 NEXT I 
150 END 


c. Il programma legge da istruzioni DATA e poi stampa l'array 


100 DIM AC2,3> 

110 FOR R-l TO 2 
120 FOR Ol TO 3 
130 READ fl(R,C) 
140 NEXT C 
150 NEXT R 
160 FOR R=1 TO 2 
170 FOR Ol TO 3 
180 PRINT A(R,Ol 
190 NEXT C 
200 PRINT 
210 NEXT R 
220 DATA 2-3,5 
230 DATA 1,4,2 
240 END 
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7.5 Problemi 


1. Scrivere un programma usando le istruzioni DATA 
200 DATA 12 

210 DATA 2, 1,4,3, 2. 4,3. €>. 3,5.4.1 

che legga la dimensione di un array dalla prima istruzione DATA, 
quindi legga gli elementi dell’array dalla seconda istruzione DATA, 
caricandoli in un array X; poi stampi l'array. 

2. Scrivere un programma per riempire un array di 3 per 4 con degli I. 

3. Scrivere un programma che richieda l'immissione di una matrice 
quadrata N per N. dove N è un numero intero non superiore a 10. Il 
programma deve calcolare e stampare la somma dei dati sulla diago¬ 
nale principale della matrice (dove il primo e secondo indice sono 
uguali). 

4. Scrivere un programma BASIC usando il comando READ per leggere 
venticinque numeri dalle istruzioni DATA e metterli in un array mo¬ 
nodimensionale chiamato A. Fare una ricerca neU'array c stampare il 
numero degli elementi dell’array che sono piu grandi di cinquanta. 
Completare le istruzioni DATA con dei numeri a piacere. 

5. Scrivere un programma che richieda l'immissione di una matrice M 
per N. Presumere che sia M che N non siano maggiori di 1S. Ouindi 
calcolare e stampare la somma di tutti gli elementi della matrice. 

6. Il seguente programma dovrebbe calcolare e scrivere la somma degli 
elementi di un array monodimensionale che siano positivi, ma non 
maggiori di 10. Cosi com'è. il programma è sbagliato. Che cosa c’è 
che non va? 

100 DIM fl<6> 

110 FOR 1 = 1 T0 6 
120 INPUT A<I) 

130 NEXT I 
140 LET 3=0 

150 FOR 1=6 TQ 1 STEP -1 
160 IF A<I»10 THEN 180 
170 LET S»S+ft(I) 

180 NEXT I 
190 PRINT S 
200 END 
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7. Che cosa si avrà in uscita se viene eseguito il programma seguente? 


100 DIM V<6> 

110 FOR 1-1 TO 6 
120 READ V<I> 

130 NEXT I 

140 DATA 2,1.3,1,2.I 

150 LET Sl=0 

160 LET S2=0 

170 FOR 1*1 TO 6 

180 LET S1*S1 ♦ V<IJ 

190 LET S2-S2 ♦ V<I>T2 

200 NEXT I 

210 LET X-S2 - SI 

220 PRINT X 

230 END 


8. Che cosa si avrà in uscita quando il seguente programma verrà ese¬ 
guito? 


100 DIM ft(10> 

110 FOR 1*1 TO 10 
120 READ A<I) 

130 NEXT I 
140 LET S*A<1) 

150 FOR 1*1 TO 9 
160 LET A(I)*A<I+l> 

170 NEXT I 
180 LET A(10,'*S 
190 FOR >1 TO 10 
200 PRINT A<I> 

210 NEXT I 

220 DATA 10,9,8,7,6.5,4,3,2,1 
230 END 


9. Che cosa verrà stampato se verrà eseguito il seguente programma? 


100 Din X<4,4) 

110 FOR 1*1 TO 4 
120 FOR J*1 TO 4 
130 READ X<I,J> 

140 NEXT J 
150 NEXT I 

160 DATA 1,2,3,4,2,3.4,5 
170 DATA 3, 4,5, 6. 4, 5,6,7 
180 LET S-0 
190 FOR 1=1 TO 4 
200 LET S*S+X<I.5-I> 
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210 NEXT I 
220 PRINT S 
230 END 


IO. Che cosa verrà stampato se viene eseguito il programma che segue? 


100 DIM V<4,4> 

110 FOR R-l TO 4 
120 FOR C*1 TO 4 
130 LET YCR.C^e 
140 NEXT C 
150 NEXT R 
168 FOR R-l TO 4 
170 F0RC=1 TO 4 
180 LET VCR,CJ-R*C 
190 NEXT C 
200 NEXT R 
210 FOR R-l TO 4 
220 FOR C-l TO 4 
230 PRINT V<R,C>, 
240 NEXT C 
250 PRINT 
260 NEXT R 
270 END 


11. Scrivere un programma BASIC che richieda l’immissione di N (che si 
presume essere un numero intero fra 1 e 100). quindi generi un ar- 
ray monodimensionale con N elementi. Metta in ordine i numeri 
dell'array in modo ascendente, e infine stampi l'array ordinato. 

12. Poniamo che il primo numero delle istruzioni DATA dia il numero de¬ 
gli clementi che devono seguire. Si presuma che i dati siano tutti dei 
numeri interi compresi fra 1 e IO estremi inclusi. Scrivere un pro¬ 
gramma che calcoli il numero degli 1, dei 2. ecc., nei dati e che quin¬ 
di lo scriva. (Suggerimento: usare i dati man mano che sono letti co¬ 
me un indice per incrementare un elemento di un array usato per 
contare i numeri.) 

13. Che cosa verrà stampato se il seguente programma viene eseguito? 


100 DIM Z<6< 6) 

110 FOR R-l TO 6 
120 FOR C=1 TO 6 
130 LET Z(R«C.’*0 
140 NEXT C 
150 NEXT R 

160 FOR R-l TO 5 STEP 2 
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170 FOR C-R TO 6 
180 LET Z(R<C)*1 
190 NEXT C 
200 NEXT R 
210 FOR R-l TO 6 
220 FOR C-l TO 6 
230 PRINT 2<P/C>i 
240 NEXT C 
250 PRINT 
260 NEXT R 
270 END 


14. Se il programma che segue venisse eseguito, che cosa scriverebbe il 
computer? 


100 DIN fl(5<5> 

110 FOR R-l TO 5 
120 FOR C-l TO 5 
130 REFtD fl<R<C> 

140 NEXT C 
150 NEXT R 

160 DRTR 2<2<2<2<2<2<2<2<2<2 

170 DRTR 2<2<2<2<2<2<2<2<2<2 

160 DRTR 2<2<2.2<2 

190 FOR C-5 TO 1 STEP -1 

200 FOR R-l TO C 

210 LET R(R< 0-3 

220 NEXT R 

230 NEXT C 

240 FOR R-l TO 5 

250 FOR C-l TO 5 

260 PRINT fl(R<C)i 

270 NEXT C 

280 PRINT 

290 NEXT R 

300 END 


15. Scrivere un programma per leggere l’array seguente da istruzioni 
DATA, quindi stampare l'array. 


2 10 5 1 

3 2 13 1 


16. Scrivere un programma per leggere l'array seguente da istruzioni 
DATA, quindi stampare l'array. 
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5 3] 
2 0 
-1 1 
4 2 
. 2 6 _ 


17. Scrivere un programma BASIC che richiede rimmissione di una ma¬ 
trice M per N. Quindi calcoli ed emetta la somma degli elementi di 
ciascuna riga e il prodotto degli elementi di ciascuna colonna. 

18. Scrivere un programma BASIC che legga due matrici da istruzioni 
DATA. Entrambe le matrici sono due per tre. Quindi calcoli una terza 
matrice due per tre tale che ciascun elemento sia la somma dei corri¬ 
spondenti elementi delle prime due matrici. Stampi infine la terza 
matrice. 

19. I dati qui sotto rappresentano i totali delle vendite effettuate da degli 
agenti nel periodo di una settiamana 



Lun 

Mar 

Mer 

Glo 

Ven 

Sab 

Agente 1 

48 

40 

73 

120 

100 

90 

2 

75 

130 

90 

140 

no 

85 

3 

50 

72 

140 

125 

106 

92 

4 

108 

75 

92 

152 

91 

87 


Scrivere un programma che calcoli e scriva 

a. Il totale delle vendite giornaliere 

b. Il totale delle vendite settimanali per agente 
c .11 totale delle vendite settimanali 

20. Scrivere un programma che richieda l'immissione di una matrice 4 
per 4 e calcoli una nuova matrice dalla prima con le righe e le colon¬ 
ne scambiate fra loro. Cioè, la riga 2 della matrice immessa deve di¬ 
ventare la colonna 2 della nuova matrice, e così via. Il programma 
dovrà poi stampare la nuova matrice. 

21. Si considerino i due array seguenti: 

P X 

I 28 

5 2 

3 14 
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4 3 

2 17 

6 9 

Ciascun elemento di P puma ad un elemento di X. P(l) = 1 e 
X( 1) = 28. P(2) = 5 e X(5) = 17. Se tenete attivo questo processo, i va¬ 
lori di X sono elencati in ordine decrescente. Scrivere un programma 
che fissi due array X e P ad una lunghezza conveniente, e che richie¬ 
da poi l'immissione di valori arbitrari di X dalla tastiera. Costruire 
l’array P in modo che i suoi clementi puntino a X in ordine discen¬ 
dente come illustrato sopra. Quindi stampi i due array come mostrato. 


7.6 Test di apprendimento 


1. Qual è lo scopo dell’istruzione DIM? 


2. Abbiamo una matrice chiamata X. Che nome di variabile usa il BA¬ 
SIC per individuare l’elemento che si trova nella riga 3, colonna 4? 


3. Usare un array in un programma per immettere un elenco di numeri, 
quindi trovare e stampare la somma dei numeri positivi dell'elenco. 
L'uscita deve apparire cosi: 

QUANTI NUMERI? (Si immette il numero) 

QUALI SONO I NUMERI? (Si immettono) 

LA SOMMA DEGLI ELEMENTI POSITIVI E (Il computer visualizza 
la risposta) 


4. Scrivere un programma usando le istruzioni FOR NEXT per caricare 
con dei 4 un array di quattro per sei. 


5. Che cosa sarà stampato se verrà eseguito il seguente programma; 
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100 

DIM 

fl < 5 . 

5 ) 


110 

FOR 

1 = 1 

TO 

5 

120 

FOR 

J =1 

TO 

5 

130 

LET 

R(R, 

0=0 

140 

NEXT 

J 



130 

NEXT 

I 



160 

FOR 

1 = 1 

TO 

5 

170 

LET 

FKI, 

n=2 

180 

NEXT 

I 



190 

FOR 

1-1 

TO 

5 

200 

FOR 

J »1 

TO 

3 

210 

PRINT 

:i,j> 

220 

NEXT 

J 



230 

PRINT 



240 

NEXT 

I 



250 

END 





6. 11 seguente array è chiamato A: 


I 

6 


3 

2 


a. Scrivere un’istruzione DIM per A. 


b. Qual è il valore di A(2,3)? 


c. Se X = I e Y = 2, che cos’è A(X.Y)? 


d. Che cos'è A(A(1,1),A(2.2))? 











Capitolo 


Variabili a stringa 



8.1 Obiettivi 

Alcune delle più importanti applicazioni dei computer sono non¬ 
numeriche e trattano dei caratteri piuttosto che dei numeri. Le stringhe 
di caratteri possono essere trattate come "variabili a stringa" c sono 1 ar¬ 
gomento di questo capitolo. Vedremo in particolare i seguenti argomenti 
che sono collegati con le stringhe. 


INPUT E OUTPUT DI STRINGHE 

Prima di poter svolgere delle operazioni significative sulle stringhe, dob¬ 
biamo imparare come sono gestite dal computer le operazioni di input e 
di output delle variabili a stringa. 


FUNZIONI SU STRINGHE 

Avete già studiato delle funzioni BASIC che operano sui numeri. Ora trat¬ 
teremo le funzioni che operano su stringhe di caratteri. 


ESEMPI DI PROGRAMMA 

Lo scopo finale è quello di scrivere dei programmi che funzionino con va¬ 
riabili a stringa. 
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8.2 Esercizi di scoperta 


1. Accendete il computer e la TV. Immettete il seguente programma: 

100 INPUT rs 
110 PRINT 
120 PRINT R* 

130 PRINT R* 

140 END 


Nel programma A$ identifica la variabile come una variabile a strin¬ 
ga. Eseguite il programma e al segnale di immissione (il punto inter¬ 
rogativo) battete il vostro nome per intero. Che cosa è successo? 


2. Ora modificate il programma come segue: 


100 INPUT R*,B* 

110 PRINT 
120 PRINT B* 

130 PRINT R* 

140 END 

Se eseguite il programma e al segnale di immissione battete le parole 
INTELLIGENTE e CONVERSAZIONE separate da una virgola, che 
cosa pensate che verrà scritto in risposta dal computer? 


Provate e annotate quello che è successo. 


3. Cancellate il programma e immettete il seguente: 

100 PERO X,X$,V,VS 
110 DfiTR 10,ROSI,20.CRRLO 
120 PRINT X,V 
130 PRINT X*,V* 

140 END 


Questo programma contiene diverse idee nuove. Che cosa pensate 
che succeda se si esegue il programma? 
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Eseguite il programma e registrate qui sotto quello che è avvenuto. 


4. Come vedete, potete includere stringhe nelle istruzioni DATA. Cam¬ 
biate la riga 110 nel modo seguente: 

110 DATA 10, "ROSI",20, "CARLO** 

Eseguite il programma. Cosa è successo? 

5. Cambiate la riga 110 cosi 

110 DATA "10”,“ROSI",20,CARLO 

Visualizzate il programma ed eseguitelo. Cosa è successo? 


"IO" è una stringa mentre X cerca un numero. 

6. Cambiate la riga 100 
100 READ X*,X,Y,V# 

Che cosa succede se si cerca di eseguire il programma in questa for¬ 
ma? 


Vedete se avevate ragione. Registrate qui sotto quello che è successo 
quando avete cercato di eseguire il programma. 


7. L’errore di sintassi è causato da una discrepanza nei tipi di dati. Vi¬ 
sualizzate il programma ed osservate che ROSI è una stringa, ma X è 
una variabile numerica. È chiaro che si deve stare attenti a che le in¬ 
formazioni delle istruzioni DATA vadano d'accordo con il tipo di va¬ 
riabile delle istruzioni READ. Passiamo ora ad un altro argomento. 
Cancellate il programma dalla memoria del computer e immettete il 
seguente: 
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100 INPUT C* 

110 LET N-LEN(C*> 
120 PRINT N 
130 ENI) 


La caratteristica nuova in questo programma è la funzione LEN(C$). 
£ nuova perché lavora su una strìnga (in questo caso la strìnga C$) 
invece che su un numero. Potete immaginare quello che fa la funzione? 


Notate che il risultato della funzione LEN che opera su una stringa 
dev'essere un numero, dal momento che il risultato viene assegnato 
ad una variabile numerica N. 

8. Eseguite il programma e al segnale di immissione battete ABCDE. 
Che cosa è stato scritto in risposta? 


Provate di nuovo, ma questa volta battete VITADACANI. Che cosa è 
successo? 


A questo punto dovreste avere un’idea abbastanza precisa di quello 
che fa la funzione LEN. 

9. Eccovi un nuovo problema. Se eseguite il programma e al segnale di 
immissione premete semplicemente il tasto return che cosa pensate 
che verrà scritto dal computer in risposta? 


Provate e controllate se avevate ragione. Ora, ancora una variazione. 
Eseguite il programma e al segnale di immissione immettete R 0 • 
BERTO. Notate gli spazi fra i caratteri. Che cosa è stato scrìtto in 
risposta? 


Nella funzione LEN gli spazi contano come caratteri? 
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10. Ora vogliamo specificare una sottostringa in una stringa. Cioè, data 
una stringa A$ come possiamo specificare M caratteri di quella strin¬ 
ga cominciando dall'N-esimo carattere della stringa? La funzione che 
dà questa sottostringa è MID$(A$,N,M). Dà M caratteri presi da A$ a 
partire dall’N-esimo carattere. 

Ora cancellate il programma in memoria e immettete quello che se¬ 
gue: 


100 INPUT fi* 

110 PRINT "M « 

120 INPUT M 
130 PRINT "N » "i 
140 INPUT N 

150 PRINT IHD$(ft*-N,H) 
160 END 


Eseguite il programma e al segnale di immissione della stringa, bat¬ 
tete MISSISSIPPI. Notate che la lunghezza di questa stringa èli. Im¬ 
mettete 5 per M e 4 per N. Che cosa è successo? 


11. Cancellate dalla memoria del computer il programma e immettete 
questo: 


100 INPUT fi* 

110 INPUT J 

120 PRINT MID*Cfi*iJ,1) 
130 PRINT 
140 GOTO 110 
150 END 


Eseguite il programma e alla prima richiesta di immissione, battete 
ABCDEFGHIJKLMNOPQRSTUVWXYZ. Alla seconda richiesta di im¬ 
missione battete 20. Che cosa è successo? 


Il computer è alla richiesta di immissione per J. Questa volta battete 
10. Che cosa è successo? 


Alla terza richiesta di input sperimentate diversi valori di I fra 1 e 
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26. Descrivete con parole vostre che cosa succede quando il compu¬ 
ter è diretto a stampare M1DS(A$,I,1). 


12. Resta da controllare un'ultima cosa. Dovreste ancora trovarvi alla ri¬ 
chiesta di input per J. Battete 30. Che cosa è successo? 


A questo punto dovreste capire in modo abbastanza chiaro che cosa 
succede quando il computer stampa M1D$(A$,J,1). Naturalmente in 
questo caso il valore di J è più grande della lunghezza della stringa. 
Torneremo su questo argomento nella sezione Analisi. Fate uscire il 
computer dall’iterazione. 

13. Fate per conto vostro esperimenti con questo programma. Provate 
varie stringhe e diversi valori di M e N fino a quando non capite esat¬ 
tamente come lavora la funzione MIDS. 

14. Passiamo ora ad un argomento diverso. Cancellate il programma in 
memoria e immettete il seguente: 


100 INPUT fi* 

110 INPUT B* 

120 IF R* < B* THEN 150 
130 PRINT B* 

140 GOTO 100 
150 PRINT R* 

160 GOTO 100 
170 END 


Studiate per qualche istante il programma. È chiaro che la parte in¬ 
teressante è nella riga 120 dove le stringhe AS e BS sono coinvolte in 
un’istruzione IF THEN. In particolare, che cosa pensate che voglia 
dire A$<B$ trattandosi di stringhe? 


Il modo per vedere se avete ragione o no è quello di eseguire il pro¬ 
gramma e fare alcune prove sul computer. Eseguite il programma e 
alla prima richiesta di immissione di dati battete OCA; alla seconda 
richiesta battete GALLINA. Che cosa e stato scritto in risposta? 
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15. Il computer attende che immettiate una stringa. Questa volta battete 
CASA seguito da TELEVISIONE. Che cosa è stato stampato? 


Continuate a fare esperimenti con parole o lettere di vostra scelta fi¬ 
no a quando non vediate esattamente che cosa significa l'espressione 
A$<B$. Una volta capito questo, vi dovrebbe essere facile vedere che 
cosa potrebbero significare A$ = B$, A$>BS, o AS<>B$. 

16. Fate uscire il computer dall'iterazione di input. Cancellate il pro¬ 
gramma in memoria. Passiamo ad un’altra funzione delle variabili a 
stringa: CHR$. 

CHR$ è una funzione che converte un numero in un carattere sulla 
tastiera. La maggior parte dei caratteri sulla tastiera corrisponde a 
un numero. Immettete il programma seguente: 

100 INPUT N 
110 PRINT CHR*<N> 

120 GOTO 100 
130 END 


Eseguite ora il programma e alla richiesta di immissione di dati, bat¬ 
tete 65. Che cosa è successo? 


Il programma continuerà a ripetere l'iterazione per tutto il tempo 
che vogliamo. Questa volta proviamo 66. Che cosa è successo? 


Provate anche 49, 50 e 255. 


17. Giocate un po’ con questo programma provando ad immettere vari 
numeri. Mantenete i numeri nei limiti da 32 a 255. Molto presto do¬ 
vreste accorgervi che potete riferirvi ad un carattere sia tramite il ca¬ 
rattere stesso, che tramite un numero di posizione nel gruppo di ca¬ 
ratteri. Interrompete il programma. 

18. Per vedere una parte del gruppo di caratteri ASCII, cancellate la me¬ 
moria e battete il programma seguente. I simboli che appariranno 
sullo schermo sono alcuni dei caratteri grafici del C-64. 
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100 FOR N*65 TO 122 
110 PRINT CHR$CN>,“ 
120 NEXT N 
130 END 


Potete vedere l’intero gruppo di caratteri ASCII consultando l'appen¬ 
dice C della Guida di riferimento per il programmatore. Dopo aver 
eseguito il programma, premendo il tasto C s (in basso a sinistra sul¬ 
la tastiera) e shift si cambiano i caratteri sullo schermo. Ripetendo 
l'operazione, lo schermo cambia di nuovo. Si possono così vedere fa¬ 
cilmente le differenze tra modo maiuscolo/minuscolo e maiuscolo/ 
grafico. 

19. Passiamo ora ad un altro argomento. Prima cancellate il programma 
in memoria. ASC è la funzione che converte un carattere nell’equiva¬ 
lente codice di carattere usato dal computer. 

Battete il programma seguente: 


100 INPUT a* 

110 LET X-PSC'.R*) 
120 PRINT X 
130 GOTO 100 
140 END 


Eseguite il programma e alla richiesta di input, battete Z. Che cosa è 
successo? 


Questa nuova funzione ASC(A$) è esattamente il contrario di 
CHR$(N). Usate varie lettere e numeri c confrontate i risultati con 
quelli che avete ottenuto al punto 16. 

20. C'è ancora un dettaglio da definire. Il computer si dovrebbe ancora 
trovare in attesa di un'immissione di A$. Questa volta battete PATA¬ 
TE. Annotate quello che viene scritto in risposta. Ora provate PISEL¬ 
LI. Che cosa è successo? 


L'unica somiglianza fra le due parole è che entrambe hanno la stessa 
lettera iniziale. Torneremo più tardi su questo concetto. 


21. I numeri possono essere considerati stringhe di cifre. Cosi un nume- 
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ro può essere immesso come una stringa di cifre. VAL è la funzione 
che converte queste stringhe di cifre nel loro valore numerico. Can¬ 
cellate il programma in memoria e battete: 


100 INPUT A*,B* 

110 PRINT A* ♦ B* 

120 PRINT VfiLCRS; ♦ VAL(B») 
130 END 


Visualizzate il programma ed eseguitelo. Alla richiesta di input batte¬ 
te 5,6. L’uscita dalle righe 110 o 120 è la somma aritmetica di 5 e 6? 


Notate che uno spazio in più prima dell'11 è riservato al segno —. 

22. La funzione STR$ converte un numero nella sua stringa di cifre. Can¬ 
cellate il programma in memoria e battete: 


100 INPUT A 

110 LET A**STR*CA> 

120 PRINT l1ID«(flS.L4) 
130 END 


Visualizzate il programma ed eseguitelo. Alla richiesta di input, bat¬ 
tete 1234. Sono state visualizzate tutte e quattro le cifre battute? 


Anche qui il primo spazio è riservato al segno —. La stringa che rap¬ 
presenta il numero 1234 è perciò lunga 5 caratteri. 

23. Nel capitolo precedente abbiamo usato array numerici. Nei program¬ 
mi BASIC potete usare anche array stringa. Battete 


100 DIM 

110 FOR 1*1 T0 6 
120 READ A*CI> 

130 PRINT R*(I>; 

140 NEXT I 

150 DATA 8.LEO. 9,ANNA,10,PIPPO 
160 END 
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Eseguite il programma. Scrivete cosa è uscito. 


Qui 8,9 e 10 sono stringhe di caratteri in A$, un array di stringa. Per 
sommare 8,9 e 10 aggiungere la riga 145: 

143 PR1NT VflL<ftm>>+VflL<ft*(3>)*VRL<fl*<3>> 

Eseguite il programma. La somma è corretta? 


Cambiate le righe 100, 120 e 130: 


100 DIM fK6> 

120 READ A<I) 
130 PRINT A<I>; 


Visualizzate il programma ed eseguitelo. Che numero appare? 


Che messaggio d'errore viene fuori? 


24. Con ciò si conclude il lavoro sul computer per questo capitolo. Spe¬ 
gnete il computer e la TV e passate alla sezione seguente. 


8.3 Analisi 

INPUT E OUTPUT DI STRINGHE 

Come avete già visto, un gruppo di caratteri racchiuso tra virgolette è 
chiamato stringa. Le virgolette non fanno però parte della stringa. L'idea 
nuova di questo capitolo è che la strìnga può essere trattata come una 
variabile: la variabile a stringa. 

La variabile a strìnga si identifica aggiungendo un segno dollaro (?) al no¬ 
me: CORTILE?, CASSA? e C$ sono nomi di variabili a stringa. 
L'ingresso e l'uscita delle variabili a strìnga sono trattati allo stesso mo¬ 
do di quelli delle variabili numeriche. Nelle stesse istruzioni BASIC pos- 
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siamo mescolare variabili numeriche e a stringa. Esempi ne possono es¬ 
sere 


100 PRINT 

110 INPUT M*,N 

120 READ R*/Bf<Z 


Dovete fare attenzione che l’immissione di dati sia nelle istruzioni INPUT 
che in quelle READ concordi con il tipo di variabile dato. Nella riga 110 
qui sopra, il computer si aspetterà una stringa di caratteri e un numero. 
Dovete però rendervi conto che potete battere 123456789 e se il computer 
si aspetta una stringa identificherà questa quantità come una stringa, e 
non come un numero. Il motivo è che la stringa, come è stato fatto nota¬ 
re, è formata da caratteri, e anche i simboli da 0 a 9 fanno parte del 
gruppo standard di caratteri che sarà trattato più avanti. Se, d'altra par¬ 
te. il computer si aspetta un numero e voi battete ABCDEFGHI, otterrete 
un errore. 

Anche gli array stringa si possono dimensionare. Ciascun elemento di un 
array stringa è una stringa di 255 caratteri al massimo. Per esempio, se 
eseguite il seguente programma: 


100 DIN AS<60) 

110 LET fit<5112“ 

120 LET fl*<52>«“34" 

130 PRINT A*<51> ♦ A*<52) 

140 PRINT VflL(ftl(51)) ♦ VflL(A*(52>> 
150 END 


la riga 130 stamperà 1234 poiché il segno + unisce le due stringhe A$(51) 
e A$(52) assieme. La riga 140 stamperà 46, la somma di 12 e 34. Questo 
esempio puntualizza la differenza tra stringa e variabili numeriche e tra 
stringa e array numerici. 


FUNZIONI SU STRINGHE 

La funzione LEN viene usata per determinare la lunghezza di una strin¬ 
ga. Se, per esempio, A$ = "TANTO VA LA GATTA”, allora LEN(A$) = 17. 
Si noti che gli spazi contano come caratteri. Si può anche avere una 
stringa "nulla”. Se AS = ”” (non c’è nulla fra le virgolette), allora 
LEN(AS) = 0. 

LEN(A$) dà il numero di caratteri In A$ 
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Una sottostringa è un pezzo o segmento di stringa. Vi sono vari modi di 
lavorare con le sottostringhe. Considerate il programma seguente: 

100 LET ftt-"GIANNI fl. BIANCHI" 

110 PRINT 
120 END 

L'espressione MID$(A$,8,6) identifica la sottostrìnga di A$ formata da sei 
caratteri a partire dall'ottavo carattere. Se il programma fosse avviato, 
verrebbero stampati i caratteri A. BIA. 

MID|A$,I.J) da J caratteri della stringa A$ a partire dal carattere 1 

Le variabili a stringa possono essere confrontate in istruzioni IF THEN. 
Il confronto è fatto tramite l'ordinamento alfabetico. Così A<B perché A 
viene prima di B nell’alfabeto. CANE<GATTO, CASA >AUTOMOBILE, 
BURRO< BURRONE, e così via. 

Per capire le funzioni stringa, dovete conoscere il gruppo standard di ca¬ 
ratteri ASCII (l'abbreviazione di American Standard Code for Information 
Interchange, il codice standard americano per lo scambio di informazio¬ 
ni). Questo gruppo di caratteri è usato dalla maggior parte dei computer 
ed è formato da centoventotto caratteri numerati da 0 a 127. Per la lista 
completa dei caratteri ASCII fate riferimento al manuale di consultazio¬ 
ne del Commodore 64. 

Nel modo maiuscolo/grafico le lettere maiuscole da A a Z sono numerate 
da 65 a 90. Nel modo maiuscolo/minuscolo le lettere minuscole da a a z 
corrispondono ai numeri da 65 a 90. I numerali da 0 a 9 sono numerati 
da 48 a 57. Gli altri caratteri numerati comprendono la punteggiatura, gli 
operatori aritmetici ( + , -, *, ecc.) e altri caratteri speciali. 

Poiché ci sono due modi di scrittura, ciascun numero può corrispondere 
a due simboli diversi. 

Due funzioni a stringa operano con il gruppo di caratteri ASCII. La pri¬ 
ma CHRJ(N) riporta l'N-esimo carattere del gruppo di caratteri ASCII. 
Per esempio CHRS(65) = A, CHR$(90) = Z e via di seguito. Possiamo an¬ 
che capovolgere le cose e convertire un carattere nel suo numero ASCII. 
Questo si ottiene con la funzione ASC(A$). Per esempio, ASCf'A") = 65 e 
ASC("Z") = 90. 

Supponiamo A$ = "AEROPLANO". Che cosa sarà ASC(AS)? Siccome la 
lunghezza della stringa e maggiore di uno, viene considerato solo il pri¬ 
mo carattere. In questo caso il primo carattere è A e ASC(A$) = 65. 

Si usano due funzioni per trattare con numeri come stringhe di cifre. 
STR$(-945) dà come risultato una stringa i cui caratteri sono il segno -, 
9, 4, 5. La funzione VAL invece dà come risultato il valore numerico di 
una stringa i cui caratteri sono cifre. Cosi VALI" 112233445566”) dà 
1.12233446E + 11. 
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8.4 Esempi di programmi 

ESEMPIO I — INVERSIONE DI STRINGHE 

Il compito è quello di scrivere un programma che richieda l'immissione 
di una stringa e poi la emetta in ordine inverso. Per prima cosa dobbia¬ 
mo predisporre l’ingresso della stringa. 

100 INPUT fi* 

Le poche righe che seguono faranno scrivere la stringa in ordine inverso. 

110 FOR X»LEN<R*) TO 1 STEP -1 
120 PPINT MID*(A*,X,1,>; 

130 NEXT X 

L’iterazione cammina all’indietro, dalla lunghezza della stringa fino ad 1. 
La funzione MID$(A$,X.l) identifica in A$ la sottostringa formata da 1 ca¬ 
rattere che inizia al carattere numero X. Con ciò viene isolato un unico 
carattere. 

Con un’istruzione END aggiunta, il programma completo è 


100 INPUT A* 

110 FOR X-LENCA*) TO 1 STEP -l 
120 PRINT MID*(A*,Xi1>; 

130 NEXT X 
140 END 


Provate ad eseguire questo programma usando il vostro nome in ingresso. 


ESEMPIO 2 — CONTEGGIO DI PAROLE 


Il numero di parole in una frase può essere determinato dal numero di 
spazi (presumendo che l’unico scopo dello spazio sia quello di separare le 
parole). 11 programma che segue stampa il numero di parole contenute 
nella stringa in ingresso. 


100 INPUT MS 
110 LET S=0 

120 FOR 1=1 TO LENCAS) 

130 IF MIDftA*, 1.1)0" " THEN 150 
140 LET S*S+1 
150 NEXT I 

160 PRINT "NUMERO DELLE PAROLE * ”;S+1 
170 END 
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Studiate il programma fino a che non vedete esattamente come funziona. 
Provatelo battendo una frase. Verificate che funz.ioni in modo corretto. 


ESEMPIO 3 — CODIFICA DI FRASI 

Supponiamo di volere un programma che codifichi una frase. Un modo 
facile di costruire un codice (che tra parentesi potrebbe essere rapida¬ 
mente scoperto con i computer) è di sostituire ciascun carattere del mes¬ 
saggio con un altro carattere. Questo si ottiene in modo estremamente fa¬ 
cile facendo riferimento al gruppo di caratteri ASCII. Tuttavia, facciamo¬ 
lo "partendo da zero". 

La prima parte del programma richiede la stringa da codificare e stabili¬ 
sce lo schema di conversione. 


100 LET B* = “RBC.DEFGHI JKLMNOPQRSTUVWXVZ 
110 LET C* - "ETRVZBHCW KPSYDFGXIMJLONGU.R" 
120 INPUT R* 


BS contiene i caratteri che possono essere usati nella stringa in ingresso 
da codificare. C$ è la chiave di sostituzione. Una A nella stringa immessa 
viene sostituita da una E, F e sostituita da B, J da uno spazio, e via di¬ 
scorrendo. 

Possiamo ora esaminare ciascun carattere e operare le sostituzioni. 


130 FOR 1=1 TO LEN<Rf> 

140 FOP J=1 TO 29 

150 IF E1) O THEN 180 

160 PRINT f1ID*<C*,J,l>, 

170 GOTO 190 
180 NEXT J 
190 NEXT I 


L'iterazione esterna I fa passare ogni carattere di A$. L’iterazione interna 
J confronta lT-csimo carattere di AS con il carattere in B$ fino a che si 
trova una corrispondenza al J-esimo carattere. Quando ciò avviene, viene 
stampato il J-esimo carattere codificato di CS e il programma va avanti 
al successivo carattere di A$. 

Terminiamo il programma con 


200 PRINT 
210 END 
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Il programma completo è 


100 LET B* * "RBCDEFGHIJKLMNOPGRSTUVWXVZ 
110 LET C* = "ETAVZBHCW KPSVDFGXIMJLONQU.R" 
120 INPUT R$ 

130 FOR 1*1 TO LENtfì*) 

140 FOR J=1 TO 29 

150 IF MID$(Rt.I*1> O MID#(BS>J,1) THEN 180 

160 PRINT MIDtCCS.J,l)i 

170 GOTO 190 

180 NEXT J 

190 NEXT I 

700 PRINT 

210 END 


Il codice può essere cambiato disponendo in un altro modo i caratteri in 
C5. Può essere interessante provocare il programma e vedere come si 
presenta un messaggio codificato. 


ESEMPIO 4 — TABELLA DELLE VENDITE 

La seguente è una tabella delle vendite al dettaglio di un negozio di com¬ 
puter. Le vendite sono fomite da ciascun venditore ogni trimestre. 

Trimestre 



1 

2 

3 

4 

Aldo 

7 

9 

11 

17 

Marco 

5 

10 

15 

20 

Pippo 

8 

7 

21 

14 


Ouesta tabella può essere rappresentata come un array stringa di tre ri¬ 
ghe c 5 colonne. Il vostro compito è scrivere un programma che cerchi il 
nome del venditore, calcoli il totale delle vendite di questo venditore e 
stampi il risultato. 

Prima dimensionate l'array: 

100 DIM UNIVEN#C3,S> 

Poi inserite i dati nel programma 


110 DRTR ALDO,7.9/11.17 
120 DRTR MARCO,5-10.13/20 
130 DRTR PIPPO.8.7.21,14 


190 VARIABILI A STRINGA 


Ora immettete i dati nell'array stringa UNIVEN$ 


140 FOR R*1 TO 3 
130 FOR Oi TO 5 
160 READ UNIVEN<<R< C) 
170 NEXT C 
180 NEXT R 


Ora chiedete il nome del venditore 

190 FRINT "IMMETTERE IL NOME DEL VENDITORE •; 
200 INPUT N< 


Successivamente determinate il numero di riga del venditore 


210 FOR R=1 TO 3 

^30 NEXT*R UNIV ^ N * <R< ** ™ EN (So m ma le vendite) 


Se un nome è stato inserito erroneamente, avrete bisogno delle seguenti 
righe: 


240 PRINT N<, *' NON E' UN VENDITORE " 
250 GOTO 190 


Ora calcolate il numero totale dei computer venduti 


300 REM CALCOLA LE VENDITE 

310 LET 3*0 

320 FOR 02 TO 3 

330 LET S=*S+VAL < UN IVEN< 1R < C > > 

340 NEXT C 

350 PRINT N<<" HR VENDUTO ".Si” COMPUTER" 
360 END 


Poiché gli array che state usando sono array stringa, i numeri nell’array 
sono trattati come stringhe. Per convertirli dovete usare la funzione VAL 
nella riga 330. Una volta che avete la tabella come array stringa, potete 
rispondere a molti tipi di domanda prograxnmando in BASIC. La tabella 
può, naturalmente, essere più grande. 

Segue il programma completo. 

100 DIM UNIVEN«3<5> 

110 DATA ALD0<7<9<11<17 
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120 DOTA MARCO,5,10.15,20 
130 DATA PIPPO,8,7,21.14 
140 FOR R»1 TO 3 
150 FOP C*1 TO 5 
160 READ UNIVEN*(R,C> 

170 NEXT C 
180 NEXT R 

190 PRINT "IMMETTERE IL NOME DEL VENDITORE ", 
200 INPUT N* 

210 FOR R-l TO 3 

220 IF N*-UNIVEN*<R,1) THEN 300 

230 NEXT R 

240 PRINT N*," NON E' UN VENDITORE " 

250 GOTO 190 

300 REM CALCOLA LE VENDITE 

310 LET S-0 

320 FOR 02 TO 5 

330 LET S*S+VAL<UNIVEN*(R.C)) 

340 NEXT C 

350 PRINT N*.“ HA VENDUTO ";S," COMPUTER" 

360 END 


8.5 Problemi 

1. Scrivere un programma che richieda l’immissione di una stringa. 
Quindi scriva la stringa in una colonna verticale di caratteri. 

2. Scrivere un programma che richieda l'immissione di una stringa e 
che scriva poi la stringa in diagonale in modo che ciascun carattere 
si trovi una riga sotto e un carattere a destra del precedente. 

3. Scrivere un programma per contare il numero di vocali presenti in 
una stringa immessa. 

4. Scrivere un programma che richieda l’immissione di una stringa e 
che poi stampi le parole della stringa in una colonna verticale. 

5. Chiedere l’immissione di una frase. Generare da questa frase una 
nuova stringa dalla quale siano stati tolti tutti gli spazi. Poi stampare 
la nuova stringa. 

6. Scrivere un programma che richieda l'immissione di una stringa for¬ 
mata da lettere maiuscole. Quindi converta le lettere maiuscole in 
minuscole e stampi la stringa. Potete aver bisogno di far riferimento 
alla tabella dei caratteri ASCII nell’appendice C del vostro manuale 
di consultazione. 
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7. Si presuma che debbano essere battute cinque frasi. Scrivere un pro¬ 
gramma per contare il numero di volte che la parola IL compare nel¬ 
le cinque frasi. 

8. Se al segnale di ingresso del programma qui sotto esposto viene bat¬ 
tuta la stringa ABCDEFGH quale sara 1 uscita:' 

100 INPUT fi# 

110 FOR J«1 TO LEN(fif) STEP 2 
120 PRINT r!ID$Cfi*. Ji Di 
130 NEXT J 
140 END 

9. Scrivere un programma che richieda l’immissione di una stringa e 
conti il numero di volte che il carattere I è seguito dal carattere N. 

10. Vogliamo contare la frequenza dell'apparizione di ciascuna delle 26 
lettere dell’alfabeto (si può presumere che siano tutte maiuscole) in 
dieci frasi che devono essere immesse da tastiera. Non contate gli 
spazi o i segni di interpunzione. Scrivete un programma che calcoli e 
scriva una tabella formata da ciascuna delle lettere e dal numero di 
volte che queste appaiono nelle frasi. 

11. Modificate il programma dell’esercizio 4 per determinare le vendite 
di ciascun venditore senza cercarne il nome. 

12. Modificate il programma dell’esercizio 4 per determinare il totale 
delle vendite nel terzo trimestre. 


8.6 Test di apprendimento 


1. Come sono identificate in BASIC le variabili a stringa? 


2. Se AS = "CANE" e B$ = “CANESTRO” allora A$>B$. È vero o fal¬ 
so? 


3. Se AS = “TANTO VA LA GATTA AL LARDO’’ scrivere una funzione 
che estragga LA GATTA. 
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4. Scrivere un programma che richieda l’immissione di una stringa e 
poi continui a stampare in risposta la stringa con un carattere can¬ 
cellato ogni volta fino a quando non sia rimasto piu niente. Se. per 
esempio, si batte FETTA DI TORTA, il computer deve rispondere con 


FETTA DI TORTA 

FETTA DI TORT 

FETTA DI TOR 

FETTA DI TO 

FETTA DI T 

FETTA DI 

FETTA DI 

FETTA D 

FETTA 

FETTA 

FETT 

FET 

FE 

F 


5. Che cosa verrà stampato se verrà eseguito il seguente programma? 


100 FOR N=65 TO 90 
110 FOR M-65 TO N 
120 PRINT CHRfdl); 
130 NEXT 11 
140 PRINT 
150 NEXT N 
160 END 





Capitolo 


Funzioni e subroutine 



9.1 Obiettivi 

In questo capitolo impareremo come il computer possa essere program¬ 
mato per eseguire delle sotto-operazioni. Ciò può essere fatto sia tramite 
segmenti di programma che attraverso delle speciali istruzioni. 


FUNZIONI 

Abbiamo visto in precedenza delle funzioni incorporate nel BASIC. Ora 
impareremo come definire funzioni nostre per poter svolgere qualunque 
compito particolare. 


SUBROUTINE 

I sottoprogrammi (subroutine) sono molto utili quando devono essere ri¬ 
petute delle operazioni complicate. Vedremo come si possono costituire 
delle subroutine e usarle in programmi BASIC. 


ESEMPI DI PROGRAMMI 

Come il solito, applicherete ciò che avete imparato in alcuni esempi di 
programma. 
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9.2 Esercizi di scoperta 


1. Accendete il computer e ia TV. Immettete il seguente programma: 


100 DEF FNFKX->*5*X«-4 
110 LET X-2 
120 LET V=5#X+4 
130 PRINT V.FNFK2) 
140 END 


Eseguite il programma e registratene qui sotto l’uscita. 


2. Cambiate la riga 130 come segue: 
130 PRINT V.FNfKX) 


Visualizzate il programma in memoria. Che cosa pensate che succeda 
se si esegue questo programma? 


Eseguite il programma. Che cosa è successo? 


3. Battete 

110 LET X»5 

Visualizzate il programma e studiatelo. Ora quale sarà l’uscita se si 
esegue il programma? 


Controllate se avevate ragione. Eseguite il programma e annotate 
quello che è successo. 


4. Cambiate la riga 130 come segue: 


130 PRIN V,FNR<5> 
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Visualizzate il programma. Che cosa pensate che faccia ora il pro¬ 
gramma? 


Eseguite il programma e annotatene l'uscita. 


5. Notate che le espressioni dopo il segno di uguale nelle righe 100 e 
120 del vostro programma sono le stesse. In una delle versioni del 
programma abbiamo stampato Y e FNA(X) e abbiamo visto che erano 
uguali. Esaminiamo un po' questa informazione. Cancellate il pro¬ 
gramma in memoria. Quindi immettete il programma seguente. 


100 DEF FNR(X)*Xt2 
110 DEF FNB(X>=3*X 
120 DEF FNC(X?*X+2 
130 LET X=1 

140 PRINT FNPCX^ « FNB(X) ì FNC(X) 
150 END 


Studiale attentamente il programma. Che cosa pensate che sarà 
stampato se il programma verrà eseguito? 


Ora eseguite il programma e scrivete quello che è successo. 


Senza cambiare il programma, che cosa pensate che succederebbe se 
si sostituisse X con 1 nelle espressioni nella parte destra delle righe 
100. 110 e 120 e quindi si eseguisse il programma? Scrivete i numeri 
che se ne otterrebbero. 


6. Battete 
130 LET X=2 

Visualizzate il programma. Che cosa verrà stampato se il programma 
venisse eseguito? 
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Controllate se eravate nel giusto. Eseguite il programma e annotate¬ 
ne qui sotto i risultati. 


7. Battere 
130 LET X*3 

Ora che cosa succederà se il programma verrà avviato? 


Verificate la vostra risposta eseguendo il programma e annotando 
quello che è successo. 


8. Adesso passiamo a esplorare qualche nuova idea con questo pro¬ 
gramma. Battete 

130 LET X=1 

140 FRINT FN' ,X+4>,FNBC2);FNfi<X) 


Visualizzate il programma. Scrivete quello che pensate che verrà 
stampato se il programma sarà eseguito. 


Avviate il programma e annotatene l'uscita. 


9. Proviamo una variazione leggermente diversa sul tema che siamo ve¬ 
nuti esplorando finora. Battete 

140 PRINT FNflCX);FNB(FNH<X>) 


Visualizzate il programma e studiatelo attentamente. Provate ad im¬ 
maginare quello che verrà scritto quando il programma sarà esegui¬ 
to. Scrivete qui sotto la vostra risposta. 
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Eseguite il programma e vedete un po' se avevate ragione. Scrivete 
quello che è successo. 


10. Un'ultima cosa su questo argomento. Battete 


130 LET 

14ù PRINT FtiftC I) < FNC(X># FNR(SQR<X> > 


Ora che cosa succederà nel programma? 


Eseguite il programma e registrate quello che è successo. 


11. Cancellate il programma in memoria. Immettete il programma se- 


guente: 


100 

PRINT 

••fi"; 

110 

GOSUB 

200 

120 

PRINT 

"B"; 

130 

GOSUB 

300 

140 

PRINT 

-e-; 

150 

ENIi 


200 

PRINT 

ì; 

210 

RETURN 

300 

PRINT 

2 . 

310 

RETURN 


Questo programma ha due nuove istruzioni che non avete ancora vi¬ 
sto finora. Sono GOSUB e RETURN. Il programma in sé ha la sola 
funzione di farvi fare un po' di pratica con queste nuove istruzioni. 
Eseguite il programma e registratene l’uscita. 


Confrontate quello che è stato stampato con le righe che hanno pro¬ 
vocato tale uscita. 
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12. A quale riga l’istruzione GOSUB della riga 1 IO trasferisce il program¬ 
ma? (Suggerimento: osservate l'uscita al punto 11). 


13. A quale istruzione l'istruzione RETURN della riga 210 trasferisce il 
programma? (Suggerimento: esaminate ancora l'uscita al punto 11). 


14. I numeri di riga qui sotto indicano il flusso del programma mentre 
viene eseguito. 

Numero di riga Che cosa succede 


100 

Stampa A 

110 

Trasferisce alla riga 200 

200 

Stampa 1 

210 

Trasferisce alla riga 120 

120 

Stampa B 

130 

Trasferisce alla riga 300 

300 

Stampa 2 

310 

Trasferisce alla riga 140 

140 

Stampa C 

150 

Fine del programma 


Studiate attentamente questo schema e seguitelo nel programma. 
Riuscite già a capire lo scopo delle istruzioni GOSUB e RETURN? 
Che ne pensate del posizionamento dell'istruzione END? 


15. Cancellate il programma in memoria e immettete il seguente : 


100 REM PROGRAMMO DIMOSTRATIVO DELL'USO DI SUBROUTINE 
110 DIM X(4) 

120 FOR 1*1 T0 4 
130 READ X<I> 

140 NEXT I 
150 REM ORDINA 
160 GOSUB 300 

170 REM VISUALIZZA L'ARRAY ORDINATO 
180 FOR 1=1 T0 4 
190 PRINT X<I>, 

200 NEXT I 
210 PRINT 






FUNZIONI E SUBROUTINE 201 


220 LET X<3>=7 

230 REM ORDINA DI NUOVO 

240 GOSUB 300 

250 REM VISUALIZZA L'ARRAY ORDINATO 
260 FOR 1=1 TO 4 
270 PRINT X<I>; 

280 NEXT I 
290 END 

295 DATA 2-1 - 5-6 

300 REM SUBROUTINE CHE ORDINA L'ARRAV 

310 FOR 1=1 TO 3 

320 IF X<I+1> > X(I> THEN 370 

330 LET TEMP=X<I-t-l> 

340 LET X(I+1)=X<I> 

350 LET X(I)=TEMP 
360 GOTO 310 
370 NEXT I 
380 RETURN 


Visualizzate il programma e controllate di averlo immesso in modo 
esatto. Questo programma fornisce un esempio di come possa essere 
usata una subroutine. La subroutine che si trova nelle righe da 300 a 
380 mette in ordine Parray X in modo ascendente. Eseguite il pro¬ 
gramma e annotatene l'uscita. 


Notate che Parray originale è 


2 15 6 


Potete vedere questo controllando l'istruzione DATA nella riga 295. 
Nella riga 160 il programma salta alla subroutine e viene effettuato 
un ordinamento dei numeri. Dopo che il programma è tornato alla ri¬ 
ga 170, Parray ordinato è 

12 5 6 


Nella riga 220 cambiamo il terzo elemento dell'array, quindi si salta 
alla subroutine per un altro ordinamento. Dopo che si è tornati alla 
riga 250, viene stampato Parray ordinato 


12 6 7 
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Infine il comando END della riga 290 fa sì che il programma fermi 
l'esecuzione. E chiaro che potremmo mettere in ordine l'array X tan¬ 
te volte quante vogliamo, semplicemente inserendo l'istruzione GO- 
SUB 300. È certamente un sistema più efficiente che scrivere le istru¬ 
zioni per l'ordinamento tutte le volte che ne abbiamo bisogno. 


16. Vediamo ora un'altra istruzione. Cancellate la memoria e battete il 
seguente programma. 


100 PRINT “IMMETTERE UN NUMERO TRA 1 E 5 “ 
110 PRINT "BATTERE 5 PER FINIRE " 

120 INPUT N 

130 0N N GOSUB 1000,2000.3000.4000 

140 IF N*3 THEN END 

150 PRINT 

160 GOTO 100 

1000 PRINT “UNO" 

1010 RETURN 
2000 PRINT “DUE” 

2010 RETURN 
3000 PRINT “TRE" 

3010 RETURN 

4000 PRINT “QUATTRO" 

4010 RETURN 


Quale parola verrà visualizzata se si immette 3? 


Eseguite il programma. Avevate ragione? 


17. E con questo è terminato il lavoro sul computer per questo capitolo. 
Spegnete il computer e la TV. 


9.3 Analisi 

FUNZIONI 

L’istruzione DEF (abbreviazione di "definisci”) ci permette di avere nei 
programmi BASIC delle funzioni definite dall'utente in aggiunta a quelle 
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(come SQR, INT, ecc.) già incorporate nel linguaggio. La forma di tutte le 
istruzioni DEF è la stessa. 

N° riga DEF FN variabile (argomento) = espressione 

100 DEF FNP(X>*XT2 - 3*X 

Siccome nomi diversi di variabili potrebbero seguire FN. potremmo ave¬ 
re diverse funzioni definite in un unico programma. 

Se in un programma fosse usata l'istruzione DEF della riga 100, e piu 
tardi fosse usata l'espressione FNP(2), il computer identificherebbe che 
FNP e stata definita alla riga 100 c sostituirebbe con 2 la X che si trova 
alla destra del segno di uguale nell'Istruzione DEF. col risultato che 

FNP(2) = -2 

Parimenti, se VOLTE = 5. allora 
FNP( VOLTE) = 10 

Nelle istruzioni DEF possono essere usate le funzioni incorporate del BA¬ 
SIC. Per esempio, 

100 DEF FNB<V>«SQR<Vtl.3> ♦ 3*V 

va bene. Inoltre in un’istruzione DEF potete usare altre funzioni definite. 
Per esempio, 

100 DEF FNB<V>*FNA<V> «■ SQR<V> 

è esatta ammesso che la funzione FNA sia stata in precedenza definita. 
Lo scopo principale delle funzioni definite dall'utente c di semplificare la 
programmazione evitando l'uso ripetuto di espressioni complicate. Il pro¬ 
grammatore attento deve essere consapevole delle opportunità di rispar¬ 
miare sforzi mediante l’uso delle istruzioni DEF. 

Definite le vostre funzioni con un’istruzione DEF 


SUBROUTINE 

Una limitazione delle istruzioni DEF è che non possono essere piu lunghe- 
di una riga. In un programma possono sorgere però delle situazioni piu 
complicate nelle quali vogliamo eseguire lo stesso procedimento molte 
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volte. È qui che le subroutine tornano utili. Il diagramma seguente indica 
come una subroutine possa essere usata in un programma. 

Il programma principale comincia 


200 GOSUB 1000 
210 _ 

350 GOSUB 1000 

360_ 

430 END 

1000 REM SUBROUTINE 


La subroutine termina 1150 RETURN 

Se il programma - tipo suddetto \enisse eseguito, quando il computer 
raggiunge il GOSUB nella riga 200, salterebbe all'inizio della subroutine 
alla riga 1000. La subroutine verrebbe eseguita e, trovato il RETURN alla 
riga 1150, il controllo passerebbe alla riga con il numero immediatamen¬ 
te superiore dopo il GOSUB che ci ha messi nella subroutine. In questo 
caso il programma salterebbe indietro alla riga 210. Poi il computer an¬ 
drebbe avanti per il programma principale fino al GOSUB della riga 350, 
che farebbe di nuovo passare il controllo alla subroutine della riga 1000. 
Questa volta il RETURN farebbe saltare indietro alla riga 3t>0 del pro¬ 
gramma. 

Naturalmente, potremmo usare GOSUB 1000 tutte le volte che si vuole 
nel programma, o potremmo avere tutte le subroutine che ci servono. Ge¬ 
neralmente la parte superiore del programma e il programma principale 
e le subroutine sono raggruppate assieme alla fine. C'è un buon motivo 
per fare questo. Vogliamo eseguire le subroutine soltanto quando queste 
sono richiamate da un GOSUB. Cosi, dopo che il programma principale e 
finito, mettiamo un'istruzione END nel programma. 

Saltare alle subroutine con GOSUB 

È possibile, e talvolta desiderabile, saltare ad una subroutine da un'altra 
subroutine. Il diagramma qui sotto indica come il computer tratta un ta¬ 
le evento. 


Il programma principale termina 
Inizia la subroutine 




FUNZIONI E SUBROUTINE 205 


Programma principale 


400 GOSUB 800 —¥ 
410 -4 - 


Subroutine 1 
800 


320 GOSUB 900 
330 4 


Subroutine 2 
900 


550 END 


l— 380 RETURN 


I— 990 RETURN 


Si noti che il controllo passa da 400 a 800, giù fino a 820, a 900, e giu fi¬ 
no al RETURN della riga 990. Naturalmente, il problema qui è: il RE¬ 
TURN ci farà tornare alia riga 410 o alla riga 830? La regola è che il RE¬ 
TURN ci riporta all'istruzione successiva a quella in cui si trova il GO¬ 
SUB che ci ha messi nella subroutine. Siamo nella subroutine 2 a causa 
del GOSUB della riga 820; di conseguenza il RETURN della riga 990 ci fa¬ 
rà tornare alla riga 830. La stessa regola si applica quando raggiungiamo 
il RETURN alla riga 880. A quel punto ci troviamo nella subroutine 1 e ci 
siamo arrivati dal GOSUB della riga 400. Cosi, il RETURN della riga 880 
ci riporta indietro alla riga 410. 

Ritornare indietro dalle subroutlne con RETURN 

L'istruzione ON...GOSUB permette di richiamare varie subroutine sulla 
base del valore numerico di una variabile. Per esempio l'istruzione 

140 0N N GOSUB 300.400,500 

manderà alla subroutine che si trova in 300 se N è 1, alla subroutine in 
400 se N è 2, o a quella in 500 se N è 3. 

A questo punto può non esservi ancora chiaro perché le subroutine siano 
importanti. La necessità di usarle diventa più evidente a mano a mano 
che si acquista più esperienza di programmazione. E sufficiente ora met¬ 
tere in luce il fatto che le subroutine sono estremamente importanti e so¬ 
no considerate come uno degli strumenti più potenti a disposizione del 
programmatore. 
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9.4 Esempi di programmi 

ESEMPIO I — ARROTONDAMENTO AI CENTESIMI 

Molte applicazioni commerciali che trattano valori in dollari implicano 
la stampa dei risultati dei calcoli in dollari e centesimi. Siccome il com¬ 
puter normalmente elabora sette cifre significative, potremmo ottenere 
in uscita un importo come 23.15793. Questo ha un aspetto strano e per ri¬ 
solvere il problema dovremmo arrotondare la cifra al centesimo più 
prossimo, cioè 23.16. 

Questa è un'applicazione ideale per una funzione definita daU'utentc. 
Scriviamo un programma che produca, quando eseguito, l'uscita seguente: 

PREZZO DI LISTINO? (Si immette il prezzo) 

SCONTATO DEL 10% E (11 computer stampa il prezzo scontato) 

SCONTATO DEL 15% È (Il computer stampa il prezzo scontato) 

SCONTATO DEL 20% È (Il computer stampa il prezzo scontato) 


Tutti i valori in dollari scritti dal computer devono essere arrotondati al 
centesimo più vicino. 

Prima dobbiamo definire una funzione che effettui l’arrotondamento. 
Una tale funzione è 

100 DEF FMR<X> = lNm:*10ò+.5>/100 


Per vedere come questa regola funzioni, supponiamo X = 23.1597. Pos¬ 
siamo seguire questo valore attraverso l’espressione per vedere quello 
che avviene. 


X*100 = 2315.97 
X* 100 + 0.5 = 2316.47 
INT(X* 100+0.5) = 2316 
!NT(X*100 + 0.5yi00 = 23.16 


Perciò 23.1597 è stato giustamente arrotondato per eccesso a 23.16. 
Come secondo esempio, supponiamo X = 23.1547. Allora 

X*100 = 2315.47 
X* 100 + 0.5 = 2315.97 
INT(X* 100+0.5) = 2315 
INT(X • 100 + 0.5)/100 = 23.15 
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con il risultato che 23.1547 è stato correttamente arrotondato per difetto 
a 23.15. 

Le successive poche righe di programma si spiegano da sole. 


110 PRINT ”PREZZO DI LISTINO"; 

120 INPUT Z 

130 PRINT "SCONTATO DEL 10* E'“;FNR(.90»Z> 
140 PRINT "SCONTATO DEL 152 E ",FNRc.85*Z> 
150 PRINT "SCONTATO DEL 205; E' B ,FNR(. 80*Z> 


Se si desidera, possiamo tornare con un'iterazione all’inizio con 
160 GOTO 110 

e poi terminare il programma 
170 END 

Il programma completo è 


100 DEF FNP<X;*INT<.>;$100+.5)/100 
110 PRINT "PREZZO DI LISTINO", 

120 INPUT Z 

130 PRINT "SCONTATO DEL 102 E'",FNRC.90*Z> 
140 PRINT "SCONTATO DEL 152 E'",FNR(.85*Z) 
150 PRINT "SCONTATO DEL 202 E ,,, ,FNRC.S0*Z; 
16G GOTO 110 
170 END 


Nelle righe 130, 140 e 150 viene usata la funzione definita. Con uno sconto 
del 10 per cento, il prezzo di vendita è il 90 per cento del prezzo originale 
Z. Perciò stampiamo FNR(0.9*Z), che arrotonda il valore al centesimo più 
prossimo come desiderato. Notate l’economia che si realizza usando la 
funzione definita, piuttosto che scrivere l’espressione della riga 100 tutte 
le volte che vogliamo far stampare un importo arrotondato in dollari e 
centesimi. 


ESEMPIO 2 — MOQUETTE 


Vogliamo scrivere un programma che usi una subroutine per calcolare il 
prezzo d’acquisto della moquette. Supponiamo che ci siano quattro tipi di 
moquette e ognuno di questi venga scontato a seconda della quantità di 
moquette ordinata. Presumiamo che la tabella dei prezzi sia la seguente: 
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A L 10000 L 8500 L 7250 

B L 13250 L 12000 L 9750 

C L 16000 L 14000 LI 1250 

D L20000 L 17200 L15250 


Le colonne si riferiscono a: 

1. I primi 15 metri quadri 

2. La parte dell’ordine che eccede 15 metri quadri, ma che non supera i 25 

3. Tutto quello che supera i 25 metri quadri. 

Quando viene eseguito, il programma deve produrre il seguente output: 

QUANTE STANZE? (Si immette) 

PER OGNI STANZA, IMMETTERE LUNGHEZZA 
E LARGHEZZA IN CENTIMETRI 
SEPARATE DA UNA VIRGOLA 


STANZA DIMENSIONI 

1 (Si immettono) 

2 (Si immettono) 

(L’iterazione prosegue lino a che non si siano immessi i dati di tutte 
le stanze) 

(numero di) METRI QUADRI 
TIPO DI MOQUETTE 
A 
B 
C 
D 

Prima di iniziare la stesura del programma, dovremmo pensare a cosa 
vogliamo ottenere. Possiamo ad esempio usare una funzione definita 
dall'utente per effettuare un arrotondamento alle mille lire. Cominciamo 
così il programma con quella funzione. 


RICHIESTI 

COSTO 

(Il computer stampa, ecc.) 


100 DEF FNR(X>=INTO</l000;*1060 
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Le righe successive seguono senza difficoltà. 


110 FRINT "QUANTE STANZE"; 

120 1NPUT N 

130 PRINT "PER OGNI STANZA, IMMETTERE LUNGHEZZA" 
140 PRINT "E LARGHEZZA IN CENTIMETRI" 

150 PRINT "SEPARATE DA UNA VIRGOLA" 

160 PRINT 

170 PRINT "STANZA","DIMENSIONI" 

180 PRINT 


Ora siamo pronti per chiedere l’immissione delle dimensioni delle stanze. 
Useremo la variabile A per calcolare l'area delle stanze. Ricordate che 
l'area di una stanza è la sua lunghezza moltiplicata per la larghezza. 


190 LET A=0 
208 FOR 1=1 T0 N 
210 PRINT I, 

220 INPUT LU.LA 
230 LET A*A+-LU*LA 
240 NEXT I 


Dobbiamo ora convertire i centimetri quadri in metri quadri e poi stam¬ 
pare la quantità di moquette richiesta. 


250 LET A=A/10000 
255 PRINT 

260 PRINT A,"METRI QUADRI RICHIESTI” 


A questo punto possiamo mettere nel programma la tabella dei prezzi 
sotto forma di istruzioni DATA. 


270 DATA 10000,8500,7250 
280 DATA 13250,12000,9750 
290 DATA 16000,14000,11250 
300 DATA 20000-17200,15250 


Poi possiamo far stampare l’intestazione richiesta per la stampa del prezzo. 


310 PRINT 

320 PRINT "TIPO DI MOQUETTE”," COSTO" 
330 PRINT 
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Ora veniamo al punto del programma in cui sarà utile una subroutine. 
Dal momento che non sappiamo esattamente dove la subroutine deve co¬ 
minciare, useremo semplicemente un numero di riga alto e lo correggere¬ 
mo in seguito se necessario. 

340 REM CALCOLA IL PREZZO DEL TIPO fi 
350 GOSUB 300 


Ora scriviamo la subroutine. Primo, per ciascun tipo di moquette abbia¬ 
mo bisogno dei tre prezzi. Possiamo fare questo leggendoli dalle istruzio¬ 
ni DATA. 

300 REM SUBROUTINE DI CALCOLO DEL PREZZO 
810 READ C1,C2,C3 


Poi si controlla per vedere se l’area della moquette è meno di 15, fra 15 e 
25, o più di 25 metri quadri e poi si calcola il prezzo di conseguenza. 


820 IF A>25 THEN 860 
830 IF fi>15 THEN 880 
840 LET P-C1*A 
850 GOTO 890 

860 LET P- 15*C1 + 10*C2 ♦ (R-25>*C3 
870 GOTO 890 

880 LET P»15*CI * (R-15)*C2 
890 RETURN 


Studiate questo segmento di programma per convincervi che il prezzo 
viene calcolato esattamente. Ora possiamo tornare al programma princi¬ 
pale e stampare il primo prezzo. 

360 PRINT ,, fì , \TRB<25>;FNR<:P; 


Una volta che questo schema è stato stabilito, il resto del programma 
principale segue con facilità. 


370 REM CflLCOLR IL PREZZO DEL TIPO B 
380 GOSUB 800 

390 PRINT "B"* TABC25J < FNR(P) 

400 REM CflLCOLR IL PREZZO DEL TIPO C 
410 GOSUB 800 

420 PRINT “C , *,TAB<25;>.FNR<:P> 

430 REM CALCOLA IL PREZZO DEL TIPO D 
440 GOSUB 800 

450 PRINT "D"< TAB(25)< FNR(P) 

460 END 
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L’istruzione END alla riga 460 è necessaria per far si che il programma 
non cada nella subroutine. L'importanza della subroutine diventa eviden¬ 
te quando vediamo che. se non fosse stata disponibile, ciascuna delle 
quattro istruzioni GOSUB avrebbe dovuto essere sostituita con tante 
istruzioni quante ce ne sono nella subroutine. 

Il programma completo è 


100 DEF FNfir'XJ = INTCX/100€)>*1000 
110 FRINT "QUANTE STANZE” i 
120 INPUT N 

130 PRINT "PER OGNI STANZA. IMMETTERE LUNGHEZZA" 
140 PRINT "E LARGHEZZA IN CENTIMETRI" 

150 PRINT “SEPARATE DA UNA VIRGOLA" 

160 PRINT 

170 PRINT "STANZA"."DIMENSIONI" 

180 PRINT 
1*0 LET A=0 
200 FOR 1=1 TO N 
210 PRINT I. 

220 INPUT LU.LA 
230 LET A=A-»-LU*LA 
240 NEXT I 
250 LET A=A/10000 
255 PRINT 

260 PRINT A,"METRI QUADRI RICHIESTI" 

270 DATA 10000,8500.7250 
280 DATA 13250,12000,9750 
290 DATA 16000.14000.11250 
300 DATA 20000.17200,15250 
310 PRINT 

320 PRINT "TIPO DI MOQUETTE”," COSTO” 

330 PRINT 

340 REM CALCOLA IL PREZZO DEL TIPO A 
?50 GOSUB 800 

360 PRINT "A",TABC25,',FNR(P> 

370 REM CALCOLA IL PREZZO DEL TIPO B 
380 GOSUB 800 

390 PRINT “B".TABC25).FNRCPj 

400 REM CALCOLA IL PREZZO DEL TIPO C 

410 GOSUB 800 

420 PRINT "C“,TAB<25).FNR':P> 

430 REM CALCOLA IL PREZZO DEL TIPO D 
440 GOSUB 300 

450 PRINT "D",TAB(25);FNR'P) 

460 END 

800 REM SUBROUTINE DI CALCOLO DEL PREZZO 

810 READ C1.C2.C3 

820 IF A>25 THEN 860 

830 IF A>15 THEN 880 

840 LET P=C1*A 

850 GOTO 890 
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860 LET P=154C1 + 10*C2 ♦ <R-25.*«C3 
870 GOTO S90 

830 LET P*15*C1 ♦ cfì-l5>*C2 
890 RETURN 


9.5 Problemi 


1. Studiate il programma qui sotto e scrìvete quello che stamperebbe 
qualora fosse eseguito. 


100 DEF FNH(X^=2-*-X 
110 DEF FNB<V>«10*V 
120 DEF FNC<ZJ>=Zt2 
130 LET R=2 
140 LET S“3 
130 LET T^5 

160 PRINT FNC<T>.FNRCS>,FNB'.RJ 
170 LET R=S+T 

180 PRINT FNFKR> ♦ FNB'.S? ♦ FNC(T) 
190 END 


2. Che cosa verrà stampato se si esegue il programma seguente? 


100 DEF FNXCR.'=6»e 
110 DEF FNV(B;>«B-H0 
120 DEF FNZCCj=CT3 
130 PERE P,Q,R 
140 DRTR 1,1,3 

150 PRINT FNX<R>,FNZ<P>,FNV(Q) 
160 PRINT FNV<P+QJ + FNX^R) 

170 END 


3. L’area di un cerchio e t volte il raggio (R) al quadrato, e il volume del¬ 
la sfera è 4/3 per ir volte R al cubo, ir è 3.14159 e R è il raggio del cer¬ 
chio o il raggio della sfera. Definire due istruzioni DEF, una per il 
cerchio e una per la sfera. Costituire un’iterazione FOR NEXT su R 
pei R che varia da 1 a S con incrementi di 0.5. Usare le funzioni defini¬ 
te per far stampare una tabella delle aree e dei volumi per ciascuno 
dei valori di R. 


4. Che cosa si avrebbe in uscita se il programma che segue venisse ese¬ 
guito? 


FUNZIONI E SUBROUTINE 213 


100 DIM A<3) 

110 FOR 1-1 TO 5 
120 READ fl(I) 

130 NEXT I 
140 DATA 6-2» 7/1,3 
150 GOSUB 500 
160 LET R(3)»10 
170 GOSUB 500 
180 LET A(5>*8 
130 GOSUB 500 
200 END 

500 FOR 1=1 TO 4 
510 LET fl<I>«fi<I+l> 
520 NEXT I 
530 GOSUB 600 
540 RETURN 
600 FOR J«1 TO 5 
610 PRINT A(J>, 

620 NEXT J 
630 RETURN 


5. Che cosa verrà stampato quando sarà eseguito il programma seguen¬ 
te? 


100 LET X=10 
110 GOSUB 500 
120 PRINT S 
130 LET X-X/2 
140 GOSUB 500 
130 PRINT S 
160 LET X-X+3 
170 GOSUB 500 
180 PRINT S 
190 END 
500 LET S=0 
510 FOR V=1 TO X 
520 LET S=S + V 
330 NEXT V 
540 RETURN 


6. Si presuma che un array contenga dei numeri da sommare fra loro. 
Il primo elemento deH‘array Z(I) dà il numero degli elementi che se¬ 
guono nell'array e che devono essere sommati. Scrivere una subrouti- 
nc che inizi dalla riga 800 per calcolare la somma degli elementi a 
partire da Z(l). Assegnare la somma alla variabile T. Far terminare la 
subroutine con un’istruzione RETURN. Presumiamo che l’array Z sia 
stato dimensionato in modo appropriato e che i valori dell’array sia¬ 
no stati caricati nel programma principale. 
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7. X è un array monodimensionale. Il primo elemento dell'array X(l) da 
il numero degli elementi di dati che seguono neU’array. Scrivere una 
subroutine che inizi alla riga 500 per cercare neH'array il valore più 
grande. Assegnare questo valore alla variabile L. Terminare la su¬ 
broutine con un'istruzione RETURN. Supponete che l’array X sia sta¬ 
to dimensionato correttamente e caricato con i numeri altrove. 

8. Supponete che come parte dei dati in uscita si abbia bisogno di una 
serie di quaranta * in un’unica riga nella pagina. Per fare questo scri¬ 
vere una subroutine che inizi alla riga 1000. Far terminare la subrou- 
tinc con un’istruzione RETURN. 

9. Supponete che un array monodimensionale Y sia stato caricato con 
dei numeri. Il primo elemento Y(I) dà il numero degli elementi che 
seguono. Vogliamo una subroutine per calcolare la media (M) e la de¬ 
viazione standard (S) dei numeri dell’array che seguono il primo ele¬ 
mento. Iniziate la subroutine alla riga 900 c fatela terminare con 
un’istruzione RETURN. Le formule per i calcoli della media e della 
deviazione standard sono fomite qui di seguito. 

Media = (Somma dei valori)/N 


Deviazione 

standard 


■4 


Nx (somma dei quadrati dei valori)-(somma dei valori) 

Nx(N-l) 


9.6 Test di apprendimento 

1. Se DEF FNA(X) = SQR(X) + 3*X. Z = 2.5 e W = 10. che cos'è 

a. FNA(l) 


b. FNA(4) 


c. FNA(9) 
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d. FNA(Z* W) 


2. Che cosa si avrà in uscita se viene eseguito il seguente programma? 


100 DEF FNR(X)»X*X 
110 DEF FN3<X)»3#X 
120 DEF FNT(V>*V+1 
130 LET A=1 

140 PRINT FNT<fi>,FNRtR),FNS(fl) 

150 LET M-4 

160 PRINT FNR<SQP(M>) 

170 END 


3. Riguardo alle subroutine: 

a. Come si passa il controllo dal programma principale alla subrouti¬ 
ne? 


b. Come si passa il controllo dalla subroutinc di nuovo al pro¬ 
gramma principale? 


4. Che cosa verrà stampato se eseguiamo il seguente programma? 


100 LET R=1 
110 GOSUB 200 
120 LET R=R*4 
130 GOSUB 200 
140 LET R=R-2 
150 GOSUB 200 
160 END 

200 REM SUBROUTINE 
210 IF R<2 THEN 250 
220 IF R=3 THEN 270 
230 PRINT "ROSSO" 
240 GOTO 280 
250 PRINT “BIANCO" 
260 GOTO 280 
270 PRINT "BLU" 

280 RETURN 









Capitolo 

La grafica 
e il colore 



10.1 Obiettivi 

CONTROLLO DEI PROGRAMMI 

Impareremo ulteriori tecniche di controllo dei programmi che renderan¬ 
no più facile la programmazione grafica. 


POSIZIONAMENTO DEI CARATTERI 

Per la programmazione grafica dovrete essere in grado di posizionare un 
carattere ovunque sullo schermo. Imparerete ad usare un'apposita su- 
broutine. 

LE POSSIBILITÀ GRAFICHE DEL C-64 

Il C-64 ha un interessante set di caratteri grafici e di modi per visualiz¬ 
zarli. Imparerete l'uso del modo inverso e di alcuni caratteri grafici. 


CONTROLLO DEL COLORE 

L’uso del colore sul video rende le presentazioni piu gradevoli e interes¬ 
santi. Imparerete a scegliere il colore di ogni carattere stampato sullo 
schermo. 
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ESEMPI DI PROGRAMMI 

Applicherete ciò che avete imparato per esplorare le capacità grafiche a 
colori del C-64. 


10.2 Esercizi di scoperta 

1. Accendete il computer e la TV. Inserite il seguente programma 


100 INPUT fi 

200 PPINT "fi", fi=l, Ft»2> fi=3 
3O0 GOTO 160 
400 END 


2. Eseguite il programma. Alla richiesta di input battete 2. Qualcuno 
dei tre numeri che appaiono è uguale a — 1 ? 


In corrispondenza del numero 2 che inserite per A quale delle tre af¬ 
fermazioni A=l, A = 2, A = 3 è vera? 


Se all'input inserite 3, quale sequenza di numeri appare sullo scher¬ 
mo? 


Inserite 3 e verificate la risposta. 


3. Interrompete il programma e aggiungete le seguenti righe: 


110 PRINT TfiB<10J.1.2/3 
120 PRINT 
210 PRINT 

220 PRINT "B”. B=1,B=2.B=3 
230 PRINT 
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4. Ora cambiate cosi la riga 100: 
100 INPUT A.B 


Listate il programma che dovrebbe apparire in questa forma: 


100 INPUT A.B 

110 PRINT TAB<10>.1.2.3 

120 PRINT 

200 PRINT “A".A=1,A=2.A*3 
210 PRINT 

220 PRINT "B".B=1.B=2,B«3 
250 PRINT 
300 GOTO 100 
400 END 

Eseguitelo. Alla richiesta di input battete 

1.1 

2.3 

3.3 


Per quale coppia di numeri i-1 sono nella stessa colonna? 


5. Interrompete il programma. Aggiungete le righe 230 e 240: 

230 IF A=1 AND B=1 T4EN PRINT 
"CONDIZIONE VERIFICATA" PRINT GOTO 100 
240 PRINT “CONDIZIONE NON VERIFICATA" 

Visualizzate il programma e osservate i due punti prima e dopo il se¬ 
condo PRINT alla fine della riga 230. In questa istruzione vengono 
eseguiti due PRINT e un GOTO se la condizione e verificata. Se ese¬ 
guite il programma, quale coppia di numeri deve essere inserita per 
far apparire CONDIZIONE VERIFICATA? 


Eseguite il programma e verificate la vostra risposta. 


6. Interrompete il programma. Cambiate la riga 230 come segue: 

230 IF A=1 OR B=t THEN PRINT 
"CONDIZIONE VERIFICATA" PRINT GOTO 100 
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Visualizzate il programma. Quali coppie di numeri faranno apparire 
CONDIZIONE VERIFICATA? 


Provate le vostre coppie di numeri e guardate se avevate ragione. 
Avreste dovuto scrivere 5 coppie di numeri. Se l'input sia di A che di 
B e 1, la condizione è verificata? 


7. Passiamo ad un altro argomento. Cancellate la memoria e battete il 
seguente programma. 


100 GET H# 

110 IF THEN 100 

120 PRINT ft$C<FI*> 

130 IF FtfO“G” THEN 100 
140 END 


Riempite la seguente tabella premendo le combinazioni dei tasti indi¬ 
cate. 


Combinazione dei tasti 

shift/clii/home 

CLR/HOME 


shiet/«=crsr- 

• CRSR — 

SHIFT/ « CRSR II 
I CRSR II 


Risultato Codice ASCII 


Pulisce lo schermo 

Posiziona il cursore 
in HOME (nell'angolo 
in alto a sinistra 
dello schermo) 

Cursore verso sinistra 
Cursore verso destra 
Cursore in alto 
Cursore in basso 


8. Riempite la seguente tabella premendo il tasto Ctrl ed i numeri indi¬ 
cati. 


Combinazione dei tasti Risultato Codice ASCII 


ctrl/1 

ctrl/2 

ctrl/3 


BLK (nero) 
WHT (bianco) 
RED (rosso) 
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Combinazione dei tasti 

Risultato 

ctrl/4 

CYN (cvan) 

ctrl/5 

PUR (viola) 

ctrl/6 

GRN (verde) 

ctrl/7 

BLU (blu) 

ctrl/8 

YEL (giallo) 

ctrl/9 

Reverse ON 

CTRlVO 

Reverse OFF 


9. Interrompete il programma e battete 
PRINT " 


Codice ASCII 


Ora premete ciascuno dei tasti indicati ai punti 7 e 8. Notate che i ca 
ratteri vengono visualizzati. Ora premete return. Cosa accade? 


Con CHR$ e il codice ASCII potete usare, se volete, la combinazione 
dei tasti desiderata. Per esempio, battete 

PRINT * shift/clear/home " 

Cosa succede? 


Premete run/stop/restorf. per tornare ai caratteri standard. Ora bat¬ 
tete 

PRINT CHR*<147> 

Ricordate, come avete visto nella tabella al punto 7, che il valore 
ASCII di shift/clr/home è 147. Si è pulito anche questa volta lo scher¬ 
mo? 


IO. Ora passiamo alla programmazione grafica. Cancellate la memoria. 
Ricordatevi che shift/ ®crsr u ha codice ASCII 17, «=crsr= ha codice 
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ASCII 29 e clr/home 19. Battete la seguente subroutine: 


1000 REM SUBROUTINE DI POSIZIONAMENTO DEL CURSORE 
1010 IF R<1 OR R>25 OR C<1 OR 040 THEN END 
1020 IF R»25 AND C=4C THEN END 
1030 PRINT CHRf•19); 

1040 IF R=1 THEN 1080 
*.050 FOR J« 1 TO R-l 
1060 PRINT CHR*(1?>; 

1070 NEXT J 
1080 IF C*1 THEN 1120 
1090 FOR K=1 TO C-l 
1100 PRINT CHRf<29); 

1110 NEXT K 
1120 RETURN 


Controllate attentamente la subroutine, in modo particolare i punti e 
virgola alla fine delle righe 1030, 1060. 1100. Questa subroutine usa i 
valori R e C per posizionare il cursore, cosi che il carattere successi¬ 
vo verrà messo sulla riga R e sulla colonna C. I codici ASCII dei tasti 
del cursore sono usati per spostare il cursore alla posizione desidera¬ 
ta. Le righe 1010 e 1020 controllano che il cursore non sia uscito dal¬ 
lo schermo. 


11. Ora battete un programma che utilizza questa subroutine: 

100 PRINT CHR*<147> 

110 PRINT CHR*U9->.TAB<10.*, "RIGA E COLONNA", 

120 INPUT R,C 
130 GOSUB 1000 
140 PRINT M X", 

150 GOTO 110 
160 END 

Visualizzatelo ed eseguitelo. Alle richieste di input immettete le se¬ 
guenti coppie di numeri: 

LI 

5.7 

5.8 
5.40 
25.5 

25.39 

25.40 

Quanti caratteri è largo lo schermo? 
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Quanti caratteri è alto lo schermo? 


Con questa subroutine riuscite a mettere una X nella 25* riga e nella 
40* colonna? 


12. Ora cambiamo la X in un carattere grafico del C-64. Correggete la ri¬ 
ga 140 cosi: 

140 PRINT CHRf(122) 

Eseguite il programma e alla richiesta di input immettete le seguenti 
coppie di numeri: 

13.20 

20.5 

Disegnate il simbolo che è apparso sullo schermo. 


13. Interrompete il programma. Battete la riga 140 come segue 
140 PRINT " shift/Z m 


Notate che il rombo è sulla destra della faccia anteriore del tasto Z. 
Eseguite il programma e alla richiesta di input immettete 13.20. 11 
simbolo che appare è uguale? 


14. Ora daremo un'occhiata ai caratteri inversi del C-64. Cambiate la riga 
140 cosi: 

140 PRINT CHR$<18)< CHR*C122); 

Eseguite il programma immettendo 13.20 alla richiesta di input. Il 
rombo è cambiato? 
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15. Infine cambiate la riga 140 cosi 

140 PRINT CHR*OB>; M "i 


Comparirà uno spazio in modo inverso. Eseguite il programma bat¬ 
tendo 13.20 alla richiesta di input. Come appare lo spazio inverso? 


16. Se non avete una TV a colori, saltate al punto 21. 

17. Cancellate dalla memoria il programma con la sua subroutine. Batte¬ 
te il seguente programma: 


100 REM CODICI ASCII PER I COLORI 

110 DOTA NERO 144,BIANCO.5.ROSSO,28 

120 DATA CVAN,159,VIOLA,156,VERDE,SO 

130 DATA BLU,31,GIALLO,158 

140 FOR K=1 TO 8 

150 READ C0LR*,C0LR 

160 PRINT CHR*<C0LR>; 

170 FOR 1=1 TO 80 
180 PRINT CHR$<13)» M “, 

190 NEXT I 
200 NEXT K 
210 END 


Visualizzatelo ed eseguitelo. Dovreste vedere delle strisce di colore 
sullo schermo nell'ordine dato dalle righe HO. 120 e 130. Regolate il 
video in modo che i colori corrispondano ai loro nomi il piu possibi¬ 
le. CHR$ (codice ASCII di un colore) stampa sullo schermo i caratteri 
di quel colore. Notate che READY si legge difficilmente se è visualiz¬ 
zato in giallo su fondo blu chiaro. Per rendere lo schermo piu leggibi¬ 
le, premete run/stop e rkstorb per far tornare il video ai colori di 
partenza. 

18. Cancellate la memoria e battete il seguente programma: 


10O REM CODICI ASCII PER I COLORI 
110 DATA GIALLO,158.VERDE,38,ROSSO,28 
120 FOR K=1 T0 3 
130 READ Cf r .K),C<K> 

140 NEXT K 

150 PRINT •'COLORE", 

160 INPUT C0LR* 

170 FOR K=1 T0 3 
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180 IF RSCcCOLRS*flSC(Cf<K)) THEN 200 
190 NEXT K 

200 PRINT "NUMERO DEI OURDRRTI", 

210 INPUT N 

220 PPINT CHP$<COO>. 

230 FOR 1=1 TO N 

240 PRINT CHRf(18>;“ M ,CHR*(14€>; 

250 NEXT I 

260 PRINT CHR$(154)« 

270 PRINT 
280 GOTO 150 
290 END 


Studiate il programma. Nella riga 260, CHR$(154) riporta al colore di 
partenza. Nella riga 180, quanti caratteri della parola immessa vengo¬ 
no considerati dalle funzioni ASC (vedi il punto 20 del Cap. 8)? 


Eseguite il programma. Alla richiesta di input immettete: 

GIRLLO ROSSO 

5 51 

VERDE 

14 

Cosa è successo? 


19. Ora battete: 


NERO 

25 


Di che colore è la striscia orizzontale? 


20. Si concludono qui gli esercizi di scoperta. Spegnete il computer e la TV'. 
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10.3 Analisi 

CONTROLLO DEI PROGRAMMI 

Espressioni logiche (vero/falso) come A = 5 sono valutate dal BASIC C-64 
come — I o 0. Il valore A = 5 dipende dal fatto che l'affermazione A e 
uguale a 5” sia vera o falsa. Quando la variabile numerica A e 5, l'affer¬ 
mazione è vera e il valore di A = 5 è — 1. Quando A non e 5 l'affermazione 
è falsa c il valore di A = 5 è 0. II costrutto IF THEN contiene queste 
espressioni logiche. 

Nel Capitolo 5 avete imparato l’uso di 1F THEN con una sola condizione. 
In questo capitolo avete usato condizioni contenenti due semplici espres¬ 
sioni logiche separate da AND o OR. Per esempio la condizione in 

100 IF A»5 OR B a 6 THEN PRINT "0K” 

è soddisfatta se il valore di A è 5 o il valore di B è 6. La condizione è sod¬ 
disfatta anche se A = 5 e B=6. Usando AND alla riga 100 si avrà: 

100 IF A=3 AND B*6 THEN PRINT "0K" 

Qui la condizione è soddisfatta e viene visualizzato OK solo quando il va¬ 
lore di A è 5 e. allo stesso tempo, il valore di B è 6. 

Si possono creare condizioni più complicate. Per esempio la condizione 

20 IF <R=5 OR 05) AND D>7 THEN 50 

è soddisfatta quando R o C è uguale a 5 e D è maggiore di 7. 
Considerate un'espressione aritmetica del tipo (A + B)*C che contiene le 
operazioni aritmetiche usando le regole apprese nel Capitolo 3. Conside¬ 
rate una espressione logica che contiene le parole o operazioni logiche 
AND e OR che usano i significati logici standard. In una espressione arit¬ 
metica, il valore può essere un numero fra tanti, a seconda del valore 
delle variabili. Invece i valori di un'espressione logica possono essere so¬ 
lo - 1 (vero) o 0 (falso). 

I due punti (:) possono essere usati per separare istruzioni multiple sulla 
stessa riga. Avete usato questa possibilità solo dopo THEN in IF THEN. 
Per esempio, le righe del programma: 

100 IF A«5 THEN PRINT "A*5 E' VERA -: GOTO 300 
200 PRINT "R«5 E' FALSA" 

se la condizione è soddisfatta visualizzeranno A = 5 È VERA e passeranno 
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alla riga 300. Se invece non è soddisfatta verrà stampato A = 5 É FALSA. 
Un uso eccessivo di questa caratteristica però, può portare a programmi 
complicati e difficili da correggere. 


POSIZIONAMENTO DEI CARATTERI 


Avete usato la seguente subroutine che posiziona i caratteri sullo scher¬ 
mo. 


1800 REM SUBRQUTINE DI POSIZIONAMENTO DEL CURSORE 
1010 IF R<1 OR R>25 OR C<1 OR 040 THEN END 
1820 IF R«25 AND 040 THEN END 
1030 PRINT CHR*<19>, 

1048 IF P=1 THEN 1080 
1050 FOR 1 TO R-l 
1060 PRINT CHR*(17>; 

107*0 NEXT J 
1080 IF C=1 THEN 1120 
1090 FOR K=1 TO C-l 
1100 PRINT CHRS(29)» 

1110 NEXT K 
1120 RETURN 


Questa subroutine usa i valori di R e C per determinare la posizione di 
riga e colonna in cui si vuole mettere il carattere. La riga 1010 controlla 
che la posizione sia sullo schermo. La 1020 assicura che non sia usata 
l’ultima riga né l’ultima colonna. Se viene stampato un carattere nell’ulti¬ 
ma posizione dello schermo il BASIC C-64 provoca un return che sposta 
tutti i caratteri visualizzati in su di una riga. La riga 1030 usa il codice 
ASCII CHR$<19) per clr/home, per muovere il cursore alla posizione HO¬ 
ME in alto a sinistra dello schermo. Le righe dalla 1050 alla 1070 e dalla 
1090 alla 1110 spostano il cursore a destra del numero di spazi desidera¬ 
to, CHR$(17), e in basso CHR$(29) per posizionare il cursore alla riga R e 
colonna C. 

Le righe 1040 e 1080 si occupano dei casi speciali, quando R é I o C è 1. 
In questi casi non dovrebbero essere visualizzati sullo schermo i caratte¬ 
ri <=crsr3» o « crsrIì , perche il cursore inizia sempre alla posizione HO¬ 
ME nella 1* riga e 1* colonna. 

Potete cambiare le istruzioni END nella 1010 e 1020 a seconda dei risul¬ 
tati che desiderale. 
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LE POSSIBILITÀ GRAFICHE DEL C-64 

I caratteri possono essere stampati in azzurro su fondo blu o, nel modo 
inverso, blu su fondo azzurro. Il modo inverso si attiva con ctriV9 o 
CHR$(18) e si disattiva con ctrl/O o CHR$(146). Abbiamo già visto questi 
codici ASCII al punto 8 degli esercizi di scoperta. Avrete notato che i ta¬ 
sti 0 e 9 hanno sulla faccia anteriore impresso rvs/òff e rvs/on. 

II modo inverso può essere usato per stampare sullo schermo spazi inver¬ 
si o quadrati. Per esempio, la riga in modo diretto 

PRINT CHR$C18>; H " 

stamperà un quadrato. Il modo inverso viene disattivato alla fine di ogni 
riga PRINT. 

Per creare un quadrato lampeggiante dovete attivare e disattivare il mo¬ 
do inverso. Si ottiene ciò battendo un quadrato, tornando indietro di uno 
spazio con il cursore a sinistra, CHR$(157), e poi stampando uno spazio 
normale. Per esempio, il programma: 

10 PRIHT CHRS<l8z; M “i 
20 PRIHT CHRtC157)» 

30 PRINT CHR*U4Ó>," ”/ 

40 PRINT CHR5C157)i 
50 GOTO 10 
60 END 

determina un quadrato lampeggiante quando viene eseguito. Le righe 20 
e 40 muovono indietro il cursore di uno spazio. La riga 30 disattiva il mo¬ 
do inverso e stampa uno spazio. Notate che i punti e virgola alla fine del¬ 
le righe da 10 a 40 impediscono al cursore di scendere alla riga sotto. 

Il Commodore 64 ha una serie di caratteri grafici che possono essere usa¬ 
ti per visualizzare diagrammi e figure. I caratteri grafici sono indicati a 
coppie sul davanti di alcuni tasti. Nel modo maiuscolo/grafico si accede 
ai caratteri di sinistra usando il tasto C s , a quelli di destra usando shift. 
Ogni tasto grafico e collegato a un codice ASCII. L’elenco dei codici 
ASCII si trova nell'appendice C del manuale del C-64. 


CONTROLLO DEL COLORE 

Per cambiare il colore di un carattere sullo sfondo standard blu, si usano 
i tasti da ctriVI a ctrl/8. Sulla faccia anteriore dei tasti numerici è indi¬ 
cato il colore associato a ciascun tasto. La seguente tabella riporta cia¬ 
scun colore, il suo tasto e il codice ASCII. 
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Colore 

Tasto 

CTRL 

Codice 

ASCII 

Nero 

1 

144 

Bianco 

2 

5 

Rosso 

3 

28 

Cyan 

4 

159 

Viola 

5 

156 

Verde 

6 

30 

Blu 

7 

31 

Giallo 

8 

158 


La combinazione di inizio si ottiene premendo run/stop/restore. 

La seguente istruzione in modo diretto visualizza un quadralo verde: 

PRINT CHRfUg^CHR^Se); - * 

Una volta immessa, tutti i caratteri battuti in seguito appariranno verdi 
su fondo blu. 

Ulteriori informazioni su come cambiare il colore dello sfondo e della 
cornice e sugli altri otto colori disponibili sul C-64 sono contenute nel 
Capitolo 3 della Guida di riferimento per il programmatore. 


10.4 Esempi di programmi 

ESEMPIO 1 — MOVIMENTO DEL CURSORE 

Questo programma vi permette di muovere un quadrato sullo schermo 
con i tasti U, D, R e L. Useremo la stessa subroutine già usata negli eser¬ 
cizi di scoperta. 

Ricordate che CHR$(I47) pulisce lo schermo, CHR$(I8) attiva il modo in¬ 
verso, CHR$<146) lo disattiva e CHR$(157) muove il cursore indietro di 
uno spazio. Segue il programma completo: 


100 PRINT CHR#(147} 

110 LET R=li 

120 LET C=20 

130 GGSUB 1000 

140 PRINT CHR*'. 18>» " ", 

150 GET RS 

160 IF **='*•• THEN 150 
170 IF THEN R=R-1 

130 IF h*="D" THEN R=R+1 

190 IF HS»"R“ THEN OC+1 
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200 IF A»="L" THEN C-C-l 
210 IF PCI OR R>25 THEN 100 
220 IF C<1 OR 040 THEN 100 
230 PRINT CHR*U37),CHR*U46); M 
240 GOSUB 1000 
250 PRINT CHR$<18>;" ■; 

260 GOTO 150 
270 END 

1000 REM SUBROUTINE DI POSIZIONAMENTO DEL CURSORE 
1010 IF R<1 OR R>25 OR C<1 OR 040 THEN END 
1020 IF R=25 AND C=40 THEN END 
1030 PRINT CHRt(19)< 

1040 IF R*1 THEN 1030 
1050 FOR J«1 TO R-l 
1060 PRINT CHR*<17>, 

1070 NEXT J 
1080 IF C=1 THEN 1120 
1030 FOR K-l TO C-l 
1100 PRINT CHR*<29 )> 

1110 NEXT K 
1120 RETURN 


Le righe 100-140 cancellano lo schermo e mettono un quadrato al centro 
dello schermo in riga 13 e colonna 20. Le righe 150 e 160 controllano se è 
stato premuto un tasto. Le righe 170-200 stabiliscono la posizione in cui 
sarà stampato il quadrato cambiando i valori di R e C. La riga 230 can¬ 
cella il quadrato e le righe 240 e 250 producono un nuovo quadrato nella 
nuova posizione. 

Eliminando la riga 130 potete usare questo programma per tracciare li¬ 
nee e figure. 


ESEMPIO 2 — GRAFICI A BARRE 

Il seguente programma legge i nomi e le votazioni di ciascun studente di 
una classe. I nomi sono visualizzati insieme a un grafico a barre sulla de¬ 
stra, a partire dalla posizione 10. Il numero di quadrati nella barra corri¬ 
sponde alla votazione. Segue il programma completo: 


100 PRINT CHR$v147) 

110 READ N 
120 FOR J=1 TO N 
130 READ NOME»,RISUL 
140 PRINT NOME*.Tfl£'10>; 

150 REM DISEGNA UN GRAFICO A BARRE 
160 FOR K»1 TO RISUL 
170 PRINT CHR*(18>;" ", 

180 NEXT K 
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190 PRINT 
200 PRINT 
210 ne::t J 
220 DATA 3 
230 DRTfl ALDO,4 
240 DRTfl ADA, 7 
250 DRTfl MflRfl,8 
260 END 


ESEMPIO 3 — GRAFICI A BARRE COLORATE 

Il programma precedente può essere modificato per disegnare barre co¬ 
lorate. Per far questo si aggiungono le righe da 30 a 90, la 165, 215 e si 
cambiano la 130, 170 e 230-250. Il programma completo è: 


30 REM CARICA I CODICI DEI COLORI NELL'ARRAY C 
40 F0R 1=1 T0 3 
50 READ CU) 

60 NEXT I 

70 REM CODICI DEI COLORI VERDE,ROSSO.GIALLO 

00 DATA 30,20,158 

90 REM PULISCE LO SCHERMO 

1Ò0 PRINT CHR*<147) 

110 READ N 

120 FOR J=1 TO N 

130 READ NOME*,RI SUL,COL 

140 PRINT NOME*,TABI 10.>, 

150 REM DISEGNA UN GRAFICO A BARRE 

160 FOR K*1 TO RISUL 

165 REM CtCOL) E' 28,30, 0 158 

170 PRINT CHR*-:C<.C0L^>Ji:HR*a8>; M “,CHR*< 154); 

180 NEXT K 

190 PRINT 

200 PRINT 

210 NEXT J 

215 REM NOME,RISUL E COL<• 1,2,3) 

220 DATA 3 
230 DATA ALDO,4,1 
240 DATA ADA,7,2 
250 DATA MARA,8,3 
260 END 


Le righe 30-70 caricano nell'array numerico C i codici dei colori, dati nel¬ 
la riga 80. C(l) è il codice colore per il verde; C(2) per il rosso, C(3) per il 
giallo. Nella riga 170, il codice del blu chiaro, colore di partenza, 
CHR$(I54) viene stampalo alla fine di ogni blocco. 

I nomi sono cosi stampati nel colore standard. L’informazione sul colore 
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(1,2,3) è aggiunta alle righe 230-250. Cambiando le istruzioni DATA dalla 
linea 220 si può modificare il colore delle barre. 


ESEMPIO 4 — ANIMAZIONE 


Questo programma fa muovere un quadrato sullo schermo come se fosse 
animato. Troverete i caratteri grafici per gli angoli sui tasti A, S, Z c X e 
il trattino sul tasto C. Ai caratteri grafici per gli angoli si accede median¬ 
te il tasto C* . Il trattino è invece ottenibile mediante shift nel modo 
standard (maiuscolo/grafico). Il trattino verticale si ottiene battendo 
shift/B. La parte della riga 60 tra virgolette si ottiene battendo C* /A, 
shift/C tre volte e C*/S. Segue il programma completo. Sullo schermo i 
trattini saranno uniti e allineati, a differenza di ciò che vedete qui. 


100 PRINT CHR$-;l47>; 

110 LET J=1 
120 PRINT CHR#vl3J 
130 FOR 1=1 T0 5 
140 PRINT 
150 NEXT I 

160 PRINT TRB<J)j"r -V 

170 PRINT Tfì£<J) , " I I" 
ISO PRINT TAB< J, 1 » " I I " 

190 PRINT TflB(J);" c - J " 

200 LET J-J41 

210 IF J>33 THEN END 

220 PRINT CHR*CI*F>; 

230 GOTO 120 ' 

240 END 


La riga 100 cancella lo schermo. Le righe 120-150 muovono il cursore in 
giù di cinque righe. Le righe 160-190 stampano il quadrato a partire dalla 
colonna J che è inizialmente posto a 1 nella riga 110. La riga 200 incre¬ 
menta il valore di J di 1 c la 220 controlla che J non sia troppo grande 
per stampare il quadralo correttamente. Le righe 220 e 230 cancellano lo 
schermo e il quadrato e fanno reiniziare il processo. Usando i caratteri 
grafici nelle righe 160-190 si possono creare altre figure. 


10.5 Problemi 

1. Cosa visualizzerà il seguente programma? 


100 LET T=2 
110 LET S=7 
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120 IF T<8 RND T>4 THEN PRIHT "T 0K“ GOTO 14w 
130 IF S<1 OP S>5 THEN PRINT M S OK" 

140 END 


2. Cosa accade quando si esegue questo programma? 

10 LET 

20 PRINT 5 E "-H*5 
30 PRINT "P=6 E' ";R=6 
40 END 

3. In che modo dovete modificare la subroutine che posiziona il cursore 
nel punto 10 degli esercizi di scoperta in modo che stampi un mes¬ 
saggio d’errore "FUORI DALLO SCHERMO” quando i valori di R e C 
sono troppo grandi o troppo piccoli? 

4. Scrivete un programma che faccia muovere un quadrato verde su e 
giù sullo schermo in continuazione. 

5. Scrivete un programma che faccia muovere un quadralo rosso diago¬ 
nalmente sullo schermo. Il quadrato dovrebbe fermarsi prima di rag¬ 
giungere il fondo dello schermo. 

6. Modificate le istruzioni DATA nel programma dell’esempio 3 in modo 
che la prima barra sia gialla, la seconda verde e la terza rossa. 


10.6 Test di apprendimento 

I. Che valore di B bisogna immettere perché il programma visualizzi 
OK? 

10 INPUT B 

20 IF B<7 RND B>5 THEN PRINT "OK” 

30 END 


2. Cosa accadrà quando verrà eseguita la seguente istruzione in modo 
diretto ? 


PRINT CHRSC147)J 
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3. Cosa verrà visualizzato dalla seguente istruzione? 

PPINT CHR*U8>;“J“ 

4. Di che colore sarà il quadrato visualizzalo dalla seguente istruzione 
in modo diretto? 

PRINT CHR$(28> >CHRf(18);" " 


5. Cosa occorre per visualizzare il carattere grafico H sullo schermo? 
(Suggerimento: guardate sul lato anteriore dei tasti) 




Capitolo 

Numeri casuali e 
simulazioni 



11.1 Obiettivi 


Una delle più interessanti applicazioni dei computer riguarda la simula¬ 
zione di eventi o di processi che implicano un elemento di casualità. 
Esempi ne possono essere l’uso del computer per simulare giochi di az¬ 
zardo o per calcolare quanti dovranno essere gli impiegati di banca ad¬ 
detti agli sportelli per far sì che i clienti che arrivano non debbano aspet¬ 
tare più di pochi minuti per essere serviti. In questo capitolo vedremo 
come il computer può essere usato per trattare problemi di questo tipo. I 
nostri obiettivi sono i seguenti. 


CARATTERISTICHE DEL GENERATORE DI NUMERI CASUALI 

Il Commodore 64 ha una funzione generatrice di numeri casuali che è il 
cuore di tutti i programmi che implicano un elemento aleatorio o casua¬ 
le. Impareremo come impiegarla nei programmi BASIC. 


SELEZIONARE I NUMERI CASUALI 

Generalmente il generatore di numeri casuali è usato per produrre grup¬ 
pi di numeri casuali con caratteristiche specificate dal programmatore. 
Vedremo come si può ottenere questo e come possa essere generato qua¬ 
lunque gruppo desiderato di numeri. 
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ESEMPI DI PROGRAMMI 

Gli esercizi di programmazione e i problemi di questo capitolo useranno 
simulazioni e applicazioni che comportano l'elemento casuale. 


11.2 Esercizi di scoperta 

IL GENERATORE DI NUMERI CASUALI 

Prima di iniziare il lavoro sul computer, dobbiamo conoscere alcune im¬ 
portanti caratteristiche del generatore di numeri casuali. Per propria na¬ 
tura questi generatori producono sequenze di numeri che sembrano non 
avere alcuno schema o alcuna relazione fra loro. Perche un generatore di 
numeri casuali sia utile, è necessario che. tutte le volte che un program¬ 
ma lo utilizza, si ottenga una diversa sequenza di numeri. Questo però fa 
sorgere un problema interessante. Supponiamo che un programma che 
usa i numeri casuali non funzioni come dovrebbe. Se il problema ha a 
che fare con i numeri casuali, può essere estremamente difficile correg 
gerlo dal momento che, ogni volta che viene eseguito il programma, ven¬ 
gono generati a caso dei numeri diversi Per questo motivo, il BASIC C-64 
può far ripetere una data sequenza di numeri casuali tutte le volte che il 
programma viene avviato. Per far uso di questa possibilità, potete dare 
un numero di partenza o "seme” come generatore di numeri casuali. Ri¬ 
cordate però che questa caratteristica del BASIC dev’essere usata solo 
quando state cercando degli errori in un programma. 

1. Accendete il computer e la TV'. A meno che sia diversamente specifi¬ 
cato, presumete che vengano generate delle sequenze di numeri di¬ 
versi tutte le volte che un programma viene eseguito. 

2. Immettete il seguente programma: 

100 FOR i»l TO 8 
Ilo PRINT RND<1 > 

120 NEXT I 
130 END 


Eseguite il programma. Quante cifre decimali ci sono nel numero più 
lungo? 
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Eseguite di nuovo il programma. Gli otto numeri generati, sono gli 
stessi di prima? 


3. Aggiungete la riga 90: 


90 PRINT RND<-1> 


Eseguite il programma due volte. Le serie di numeri sono le stesse? 


PR1NT RND<-1) fa partire il generatore di numeri casuali al numero 
2.99196472E-08 e lo stampa. Gli otto numeri successivi generati sono 
basati su questo numero. In questo modo le due serie di numeri sono 
uguali. 


4. Cancellate il programma in memoria. Immettete il seguente program¬ 
ma: 


100 LET L-.5 
110 LET S-.5 
120 FOR 1=1 T0 100 
130 LET X=RND<1> 

140 IF X>L THEN 170 

150 IF X<S THEN 190 

160 DOTO 200 

170 LET L=X 

180 GOTO 200 

190 LET S=X 

200 NEXT I 

210 PRINT "MASSIMO = ",L 
220 PRINT "MINIMO = ”.S 
230 END 


Questo programma esamina tutti i numeri generati dalla funzione 
RND e tiene conto del numero più grande e di quello più piccolo che 
vengono generati. Cosi com'è, il programma genererà 100 numeri ca¬ 
suali. Eseguite il programma e registrate quello che viene scritto in 
uscita. 


5. Battete la riga 120 nel modo seguente: 
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129 FOR 1*1 TO 1000 


Ora il programma, genererà 1000 numeri casuali. Il programma im¬ 
piegherà circa 15 secondi. Eseguite il programma e annotate quello 
che è stato scritto in uscita. 


Basandovi su quello che avete visto finora, quale pensate che sia il 
numero più grande che possa venir generato dalla funzione RND? 


E che ne dite del piu piccolo? 


6. Ora proseguiamo con qualche altra idea associata ai numeri casuali. 
Cancellate il programma in memoria e immettete il programma se¬ 
guente. 


100 FOR 1*1 TO 8 
110 PRINT INT<2*RNDC1>>; 
120 NEXT I 
130 END 


Eseguite il programma e registratene l'uscita. 


Quali sono stati gli unici due numeri stampati dal calcolatore? 


7. Cambiate la riga 110 come segue: 
110 PRINT INT(3*RNDU)>; 


Visualizzate il programma. Se il programma viene eseguito, quali nu¬ 
meri pensate che saranno visualizzati? 


Eseguite il programma diverse volte. 
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Potete prevedere qualcosa circa la sequenza o lo schema in cui i nu¬ 
meri verranno presentati? 


8. Cambiate la riga 110 cosi: 

110 PRINT INT(2#RND<1 )♦!>i 

Che cosa pensale che farà ora il programma? 

Eseguite il programma e registratene qui sotto l'output. 

9. Cambiate ancora la riga 110 nel modo seguente: 

110 PRINT INT<4*RND<l)+3>; 

Se il programma viene eseguito, che cosa pensate che si otterrà? 

Eseguite il programma diverse volte e descrivetene l’output. 

C’è qualche schema nell’output? 

10. Cambiate la riga 110 nel modo seguente. Notate la mancanza del 
110 PRINT INT<30*RND<1)V10 


Visualizzate il programma e studiatelo attentamente. Che cosa pensa¬ 
te che si presenterà ora in uscita? 
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Eseguite il programma e descrivetene l'uscita. 


II. Cambiate nuovamente la riga I IO come segue: 

110 PRINT INT<200*RND(1>>/100 

Visualizzate il programma in memoria. Che cosa pensale che accadrà 
se il programma venisse eseguito? 


Controllate se avevate ragione. Eseguile il programma e registratene 
qui sotto il risultato. 


12. Aggiuntele la riga 90: 

90 PRINT RND(-l) 

Eseguite il programma numerose volte. Le serie di numeri sono le 
stesse? 


13. Con ciò e finito per questa volta il lavoro sul computer. Spegnete il 
computer e il televisore. 


11.3 Analisi 

LA FINZIONE RND 

Non entreremo nei dettagli di come i numeri casuali vengono generati. È 
sufficiente dire che ci sono vari metodi matematici per produrre questi 
numeri. Il generatore di numeri casuali è richiamato con la funzione 
RND. Questa funzione si usa come le altre funzioni incorporate nel BA¬ 
SIC studiate in precedenza, ma ne differisce per un aspetto importante: 
con la funzione RND sembra che non ci sia alcuno schema, né alcuna re¬ 
gola nella generazione dei numeri. Naturalmente, questo è proprio il pun¬ 
to importante della (unzione. RND sta per ''casuale" (random). La funzio- 
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nc genera numeri fra 0 e 1 a caso. Tutti i numeri in queU'intervailo han¬ 
no la stessa possibilità di essere presentati. In realta l'intervallo dei nu¬ 
meri generati è da 0.0000000 a 0.9999999. Lo zero talvolta si può presen¬ 
tare. ma l’uno non capita mai. 

Altri argomenti positivi per RND generano gli stessi numeri casuali 
dell'argomento 1. La funzione RND accetta anche argomenti negativi. Un 
argomento negativo produce lo stesso numero (tra 0 e I) ogni volta che è 
usato. Un argomento negativo di RND usato in una istruzione PRINT ri¬ 
pone lo stesso seme nel generatore di numeri casuali determinando il nu¬ 
mero di partenza per il calcolo dei numeri casuali. 

RND genera numeri che vanno da 0 a 0.9999999 


SELEZIONARE I NUMERI CASUALI 

La maggior parte delle volte non vogliamo dei numeri casuali neM'inter- 
vallo prodotto dalla funzione RND. Potremmo volere dei numeri interi a 
caso in un certo intervallo o un gruppo di numeri casuali con un partico¬ 
lare gruppo di caratteristiche. Dobbiamo perciò riflettere un momento su 
come generare gruppi di numeri casuali con delle caratteristiche che pos¬ 
siamo specificare. 

Cominciamo con le caratteristiche della funzione RND. RND (1) genera 
numeri che stanno nell'intervallo da 0 a Lo meglio da 0 a leggermente 
meno di 1. Se moltiplichiamo RND (1) per N. moltiplichiamo l'intervallo 
della funzione per N. Così, N*RND (1) produrrà numeri casuali nell’in¬ 
tervallo da 0 a N. Se lo desideriamo, possiamo spostare l'intervallo (man¬ 
tenendone sempre le stesse dimensioni) aggiungendo un numero. N*RND 
(1) + A produrrebbe dei numeri casuali nell'intervallo da A ad (A + N), o 
da A a leggermente meno di (A + N). Infine, se lo desideriamo, possiamo 
prendere la parte intera di un'espressione usando la funzione INT. per 
produrre degli interi casuali. Gli esempi presentati qui sotto mostrano 
come può essere usata la funzione RND (1). 


Espressione BASIC Risultalo 


5*RND(1)+I0 Numeri casuali nell’intervallo da 10 a 15 

INT(5*RND(1)+10) Numeri interi casuali 10, II. 12. 13, 14 

I.NT(2*RND (l)+1) Numeri interi casuali I e 2 

100* RND (1) Numeri casuali nell'intervallo da 0 a 100 


Nei vostri studi potete esservi imbattuti nella nozione di media e di de¬ 
viazione standard (vedere il problema 9 nel Capitolo 9). Possiamo usare 
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la (unzione RND per generare numeri che sembrano essere presi da una 
raccolta di numeri aventi una data media e una data deviazione standard. 
La regola per generare questi numeri è 

X = M + S((somma di 12 numeri dalla funzione RND(l))-6) 

dove M e S sono rispettivamente la media e la deviazione standard desi¬ 
derate. Questa è un'applicazione in cui una subroutine sarebbe molto uti¬ 
le. Come si è definito sopra, i valori di X appariranno come derivanti da 
una raccolta di numeri con media M e deviazione standard S. I valori di 
X possono essere usati per simulare un processo che segue una curva a 
campana (distribuzione di Gauss). 

Una nota sulla ricerca degli errori. Nel Commodore 64 ce un modo per 
eseguire un programma varie volte e ripetere la sequenza di numeri ca¬ 
suali che sono generati dalla funzione RND (v. il punto 12 degli esercizi 
di scoperta). Normalmente è consigliabile scrivere inizialmente program¬ 
mi che generano la stessa sequenza di numeri casuali ogni volta che ven¬ 
gono eseguiti. Una volta che siete sicuri che il programma funziona bene, 
potete modificarlo in modo da produrre effettivi numeri casuali. 


11.4 Esempi di programmi 

ESEMPIO 1 — LANCIO DI MONETE 

Una delle applicazioni più facili dei numeri casuali è la simulazione del 
lancio di una moneta. Vogliamo scrivere un programma che, quando sia 
eseguito, produca in uscita: 

LANCIO RISULTATO 

1 TESTA 

2 CROCE 

3 CROCE 

4 TESTA 

(ecc.) 

L'uscita dev'essere determinata in modo casuale per ciascun lancio della 
moneta, con testa e croce aventi uguale probabilità di uscire. Il program¬ 
ma deve stampare i risultati di dieci lanci. 

La prima parte del programma genera l’intestazione e la riga vuota sotto¬ 
stante. 




NUMERI CASUALI E SIMULAZIONI 243 


100 PRINT "LANCIO"j"RISULTATO" 
110 PRINT 


Ora dobbiamo aprire un’iterazione per generare dieci lanci della moneta. 
120 F0R 1=1 TO 10 

Il passo successivo è di generare degli zero e degli uno a caso. Presumete 
che zero significhi "testa” e uno significhi "croce”. Dovreste essere in 
grado di capire che la seguente istruzione produrrà degli zero e degli uno 
a caso. 

130 LEI X=INT<2#RND(1>> 


Ora analizziamo X per vedere se è capitata testa (0) o croce (1). 


140 IF X=0 THEH 170 
150 PRINT I , "CROCE" 
160 GOTO 130 
170 PRINT I,"TESTA" 
130 NEXT I 


Tutto quello che resta da fare ora è di mettere l’istruzione END. 
190 END 


Il programma completo è elencato qui sotto. 

* 

X 

100 PRINT "LANCIO"f"RISULTATO" 

110 PRINT 

120 FOR 1=1 TO 10 

130 LET X=INT<2#RNDU>) 

140 IF X=0 THEN 170 
150 PRINT I,"CROCE" 

160 GOTO 180 

170 PRINT ì,"TESTA" 

180 NEXT I 
190 END 


Questo è un programma utile per dimostrare come il computer possa es¬ 
sere istruito a produrre sequenze diverse di numeri casuali o sequenze 
identiche ogni volta che il programma viene eseguito. Effettuate i neces¬ 
sari cambiamenti nel programma aggiungendo una riga 90 per fargli ri¬ 
petere la stessa sequenza continuamente (vedi il punto 12 degli esercizi 
di scoperta). 
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ESEMPIO 2 — NUMERI INTERI CASUALI 

Vediamo ora come scrivere un programma BASIC per generare e stampa¬ 
re cinquanta numeri interi compresi nell’intervallo da 10 a 15. L'unica 
parte del programma che richiederà una certa riflessione è l'istruzione 
per generare gli interi casuali. Ci concentreremo cosi su quest'unica 
istruzione. 

Ricordate che RND(I| genera numeri compresi neU'intervallo da 0 ad 1. 
Cosi. 6*RND(l) genererà numeri neU'intervallo da 0 a 6. In realtà il limi¬ 
te superiore sarà 5.999999 e non 6. Usando la funzione INT possiamo 
convertire i numeri casuali in numeri interi. INT(6«RND(I)I produrrà gli 
interi 0, I. 2. 3, 4, 5 a caso. Ora è chiaro che, per ottenere i numeri desi¬ 
derati. dobbiamo aggiungere 10. Cosi, l'espressione INT(6* RND(I))+10 
produrrà i numeri che vogliamo. 

Una volta che siamo arrivati a creare questa riga, il programma segue fa¬ 
cilmente. 

100 FOR 1*1 T0 50 

110 LET V=INT<6*PND‘. 1;> + 10 

120 F‘PINT V, 

130 NEXT I 
140 END 


ESEMPIO 3 — DISTRIBUZIONE DI NUMERI CASUALI 

Supponiamo di generare una gran quantità di numeri interi a caso 
nell'intervallo compreso fra 1 e 10. Se il generatore di numeri casuali del 
computer funziona bene, dovremmo aspettarci di ottenere lo stesso nu¬ 
mero di ciascuno degli interi. Se generassimo 1000 interi, ci aspetterem¬ 
mo di avere cento 1. cento 2. e cosi via. Il nostro problema sarà quello di 
scrivere un programma BASIC per effetiuare un conteggio degli interi 
casuali man mano che vengono generati e poi stamparne i totali. Un con¬ 
trollo di questi totali ci dirà se il generatore di numeri casuali del com¬ 
puter è più o meno buono. 

Per prima cosa, pensiamo a come faremo il conteggio. Un buon modo per 
farlo è di usare un array monodimensionale. X(l) conterrà il numero di I 
generati, X(2) il numero di 2. e avanti di questo passo fino a X( 10). Il pri¬ 
mo compito è cosi quello di dimensionare l’array e di fissare tutti i valori 
dell'array come uguali a zero. 

100 DIM X<10> 

110 FOR 1-1 T0 10 
120 LET X(I)*0 
130 NEXT I 
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Poi apriamo un'iterazione per generare mille numeri, generare gli interi 
casuali, quindi usare gli interi come indici per incrementare gli appro¬ 
priati contatori nell’arra)’. 


140 FOR 1*1 TO 1000 

130 LET V»INT<lM*NDa>> ♦ 1 

160 LET X(V>*X<V> ♦ 1 

170 NEXT I 


Ora tutto quello che resta da fare e di presentare in uscita il contenuto 
dcll array X. 


180 FOR J*1 TO 10 
190 PRINT J,X<J> 
200 NEXT J 
210 END 


Il programma completo è: 


100 DIM X(10> 

110 FOR 1*1 TO 10 

120 LET X(I>*0 

130 NEXT I 

140 FOR I«1 TO 1000 

150 LET V«INT<10*RNDa>> ♦ 1 

160 LET X<V)*X<V> + 1 

170 NEXT I 

180 FOR J-l TO 10 

190 PRINT J,X<J> 

200 NEXT J 
210 END 


Può essere interessante eseguire questo programma e constatare di per¬ 
sona come funziona il generatore di numeri casuali. Se diminuite il nu¬ 
mero di interi generati, l’accordo fra quanto vi aspettate e quello che in 
realtà ha luogo dovrebbe peggiorare. D’altra parte, se generate un nume¬ 
ro più grande di numeri casuali, l’accordo dovrebbe migliorare. Il com¬ 
puter impiegherà circa 20 secondi per visualizzare i risultati. 


ESEMPIO 4 — UNA PASSEGGIATA CASUALE 


Questo programma simula degli spostamenti casuali su un pavimento a 
piastrelle. Voi camminate a casaccio, da piastrella a piastrella e potete 
tornare su qualche piastrella sopra la quale siete già passati. 
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La riga 150 assegna ad A un valore intero scelto a caso tra 1. 2, 3 e 4. Le 
righe dalla 160 alla 190 usano il valore di A per decidere se la piastrella 
sulla quale vi sposterete è sopra, sotto, a destra o a sinistra. 

La riga 230 traccia sulla piastrella un quadrato. 

Le righe 200 e 210 fanno ricominciare il processo se camminate fuori del 
pavimento piastrellato. Di nuovo la subroutine di posizionamento del 
cursore che inizia alla riga 1000 è usata per posizionare il cursore prima 
di stampare il quadrato. 


100 PRINT CHRfC147) 

110 LET R-13 
120 LET C-20 
130 G0SUB 1000 
140 PRINT CHftSC18>J“ 

150 LET 0=INTC4«RNDa)) + l 
160 IF 8=1 THEN R-R-l 

170 IF 8=2 THEN R-R+l 

180 IF 8=3 THEN C«C-t 

190 IF 8*4 THEN C-Ol 

200 IF R<1 OR R>25 THEN 100 
210 IF C<1 OR 040 THEN 100 
220 GOSUB 1000 
230 PRINT CHR*<18); M M , 

240 GOTO 150 
250 END 

1000 REM SUBR0UTINE DI P0SI2I0N8MENT0 DEL CURSORE 

1010 IF R<1 OR R>25 OR C<1 OR 040 THEN END 

1020 IF R=25 8ND C=40 THEN END 

1030 PRINT CHR$(19)i 

1040 IF R=1 THEN 1080 

1050 FOR J=1 TO R-l 

1060 PRINT CHRS(17) i 

1070 NEXT J 

1080 IF C«1 THEN 1120 

1090 FOR K=1 TO C-l 

1100 PRINT CHR$<29); 

1110 NEXT K 
1120 RETURN 


ESEMPIO 5 — COLORI CASUALI 

Questo programma colora un rettangolo al centro dello schermo con qua¬ 
drati di posizione e colore casuale. Il cuore del programma è nelle righe 
220. 230 e 240, in cui le funzioni INT definite alle righe 180, 190 e 200 so¬ 
no usate per determinare il colore e la posizione di riga e colonna del 
quadrato. Le funzioni sono FNC. FNRIG e FNCOL. FNC dà come risulta¬ 
to un intero casuale fra 1 e 8. FNRIG tra 7 e 16 e FNCOL un intero ca- 
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suale fra 15 e 24. La riga 270 stampa il quadrato colorato sullo schermo. 
Il programma qui listato manca della necessaria subroutine di posiziona¬ 
mento del cursore che inizia alla riga 1000. 


100 REM CARICA I CODICI DEI COLORI NELL'ARRAY C 
110 FOR 1*1 T0 8 
120 READ C(I> 

130 NEXT I 

140 DATA 144,5,28,159,156.30,31/158 

150 REM PULISCE LO SCHERMO 

160 PRINT CHR*<147)j 

170 REM DEFINISCE COLORE,RIGA E COLONNA CON LA FUNZIONE 

175 REM DEI NUMERI CASUALI 

180 DEF FNC<I)*INT<8*RND<1> >+l 

190 DEF FNRIGCI)*INT<10*RND<1>>+15 

200 DEF FNCOLCI)*INT(10*RND<l>)+7 

210 REM SELEZIONA COLORE,RIGA E COLONNA CASUALI 

220 LET C0LR=C f .FNC< 1 ) > 

230 LET R*FNRIG(1> 

240 LET C*FNC0L(1> 

250 GOSUB 1000 

260 REM STAMPA IL QUADRATO 

270 PRINT CHRS(COLR),CHR*C18>," "i 

280 GOTO 210 

290 END 


ESEMPIO 6 — COMPLEANNI COINCIDENTI 

Supponiamo che cinquanta estranei si trovino riuniti in una stanza. Qual 
è la probabilità che due persone abbiano lo stesso compleanno? (Conside¬ 
riamo solo il giorno dell’anno, non l'anno di nascita). Questo è un proble¬ 
ma famoso nella teoria delle probabilità e da risultati sorprendenti. Pos¬ 
siamo attaccare il problema con la seguente strategia. Generando degli 
interi casuali neH'intervallo da I a 365 possiamo simulare un complean¬ 
no per ciascuno degli estranei. Se usiamo un array monodimensionale 
per i compleanni via via che vengono generati, è facile controllare se vi 
sono compleanni identici. Cominciando con il primo compleanno B(l), 
controlliamo per vedere se coincide con uno dei rimanenti. Poi facciamo 
la stessa cosa per B(2), e via di seguito. 

Per questo esempio daremo per prima cosa uno sguardo al programma 
completo, poi torneremo indietro e spiegheremo quello che avviene in 
ciascuna riga. 


100 DIM B(50) 

110 FOR 1*1 T0 50 

120 LET B<I>*INT(365*RNDt1>> ♦ 1 
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130 NEXT I 

140 LET F-0 

150 FOR 1-1 TO 49 

160 FOR J*I+1 TO 50 

170 IF B(I) O B<J) THEN 190 

180 LET F-F+l 

190 NEXT J 

200 NEXT I 

210 RR1NT "LE COPPIE CON LO STESSO COMPLEANNO SONO".F 
220 END 

La riga 100 dimensiona semplicemente un array per 50 elementi. Le righe 
da I IO a 130 caricano nell'array dei numeri interi scelti nell'intervallo da 
1 a 365, estremi compresi. Nella riga 140 si rende la variabile F uguale a 
0. Useremo questa variabile per seguire il numero dei compleanni che 
verranno confrontati con il resto dei compleanni della lista. Siccome ci 
deve essere almeno un compleanno della lista con cui effettuare i con¬ 
fronti. il valore di 1 si ferma a 49. Nella riga 160 viene inserita la seconda 
parte del confronto. 

J inizia al valore successivo dopo il valore attuale di I e va avanti per il 
resto della lista. 11 controllo per un paio di compleanni viene effettuato 
nella riga 170. Se non si trova alcuna coincidenza, si salta al successivo 
valore di J. Se viene trovata la coincidenza, il contatore di coppie viene 
incrementato di I nella riga 180. 1 risultati vengono stampati nella riga 
210. Un problema che sorge con questo programma è che registrerebbe 
tre persone con lo stesso compleanno come due coppie con lo stesso com¬ 
pleanno. Riuscite a immaginare un modo per rimediare a questo? 

Con questo programma potete fare interessanti esperimenti. Il numero 
delle persone può essere cambiato con semplici modifiche del program¬ 
ma. Il programma può essere eseguito molte volte per vedere quante cop¬ 
pie di compleanni in media si trovano in una folla di una certa dimensio¬ 
ne. 


11.5 Problemi 


1. Scrivere un programma per generare e presentare in uscita venticin¬ 
que numeri casuali come 5.3 nella forma X.Y dove X e Y sono cifre 
scelte a caso dal gruppo 0, 1, 2. 3 ... 9. 

2. Scrivere un programma per generare e stampare cinquanta interi 
scelti a caso daH’intervallo 13-25. 

3. Che cosa verrà presentato in uscita se sarà eseguito il seguente pro¬ 
gramma? 
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100 FOR N*1 TO 20 

110 PRINT INT-.20*RNDU> + 1>/100 

120 NEXT N 

130 END 

4. Se il programma seguente venisse eseguito, che cosa verrebbe stam¬ 
pato? 

100 FOR 1-1 TO 10 

110 PRINT INTa00*RND<l>V10 

120 NEXT I 

130 END 

5. Scrivere un programma che simuli il lancio di una moneta IO, 50, 
100, 500 e 1000 volte. In ciascun caso, stampare il numero totale di 
risultati (testa o croce). 

6. Costruire una simulazione del lancio dei dadi in BASIC. I dadi devo¬ 
no essere lanciati venti volte. Per ciascun lancio, presentare le facce 
dei dadi che sono rivolle in alto. 

7. Scrivere un programma per generare e stampare la media di 100 nu¬ 
meri casuali scelti neU'intervallo da 0 a 1. 

8. Modificare il programma dell'esempio 5 ed eseguirlo tante volte 
quante sono necessarie per trovare le dimensioni di una folla in cui 
ci sia almeno il 50 per cento di probabilità che due persone abbiano 

10 stesso compleanno. 

9. Giovanni e Mario vogliono incontrarsi in biblioteca. Si mettono d'ac¬ 
cordo di arrivare in biblioteca fra l’una e le due del pomeriggio. Si 
accordano poi che aspetteranno dieci minuti dopo essere arrivati (ma 
non dopo le due), e se l’altro non è arrivato se ne andranno. Scrivere 
un programma BASIC per calcolare la probabilità che Giovanni c Ma¬ 
rio hanno di incontrarsi. Fate una simulazione del problema usando 

11 generatore di numeri casuali. 

10. Supponiamo che una scatola contenga delle palline colorate. Ci sono 
dieci palline rosse, cinque blu. due verdi e undici gialle. Scrivere un 
programma BASIC che simuli l'estrazione di cinque palline a caso 
dalla scatola; quelle estratte in sequenza non sono più rimesse nella 
scatola. 

11. Usare la regola data nella sezione Analisi di questo capitolo per gene- 
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rare e stampare venticinque numeri scelti a caso da una distribuzio¬ 
ne gaussiana di numeri con media 10 e deviazione standard. Arroton¬ 
dare poi i numeri a due decimali. 

12. Supponiamo che un fabbricante di sapone decida di scegliere un no¬ 
me di cinque lettere per il suo prodotto. Il primo, il terzo e il quinto 
carattere sono scelti a caso dalle lettere BCDFGHJKLMNOPQRSTV 
WXYZ. La seconda e la quarta lettera sono scelte a caso fra le vocali 
AEIOU. Scrivere un programma per generare e presentare in uscita 
cento prove per il nome del sapone usando le regole suddette. 

13. Modificare il programma del problema 6 per simulare il lancio di un 
paio di dadi per 1000 volte. Visualizzare il numero di volte che cia¬ 
scuna delle undici possibili combinazioni capita nella simulazione. 


11.6 Test di apprendimento 


1. Scrivere un programma per generare e stampare 100 numeri interi 
casuali dal gruppo 1, 2, 3 e 4. 


2. Scrivere un programma per generare e presentare in uscita 100 nu¬ 
meri casuali che stiano neH'intervallo da 25 a 50. 


3. Che cosa verrà stampato se si esegue il seguente programma? 


100 F0R 1-1 T0 10 
110 LET N«INT<2*RND'.n + l> 
120 IF N«1 THEN 150 
130 PRINT "81RNCQ" 

140 GOTO 160 
150 PRINT "ROSSO" 

160 NEXT I 
170 END 


4. Che cosa verrà stampato se si esegue il seguente programma? 


100 F0R J*1 T0 5 

110 PRINT INT<1000*RND<1))/100 

120 NEXT J 

130 END 






Capitolo 



12.1 Obiettivi 

Potete usare file impostati su dischetto per immagazzinare e richiamare 
serie di informazioni. In questo capitolo imparerete a usare i file per ma¬ 
nipolare le informazioni. 


APRIRE E CHIUDERE I CANALI 

Prima di immagazzinare informazioni in un file dovete creare un canale 
da usare per trasferire i dati dal computer al drive. Imparerete ad aprire 
e chiudere questi canali. 


SCRIVERE INFORMAZIONI IN UN FILE 

Imparerete a creare file nei quali immagazzinare le informazioni. 

RICHIAMARE INFORMAZIONI DA UN FILE 

Una volta che l'informazione è stata immagazzinata dovete essere in gra¬ 
do di richiamarla. Esamineremo i metodi per richiamare le informazioni 
da un file. 
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ESEMPI DI PROGRAMMI 

Avrete bisogno spesso di cambiare i dati immagazzinati su file. Imparere¬ 
te come si la. Scriverete anche programmi che estraggono informazioni 
dai file. 


12.2 Esercizi di scoperta 


L'uso dei file è ormai, nei linguaggi avanzati, estremamente semplice. Vi 
accorgerete che scrivere programmi che fanno uso di file richiede l’utiliz¬ 
zo di tecniche e concetti imparati nei capitoli precedenti. 

1. Accendete il computer, la TV e il drive. Mettete un disco formattato 
nel drive (v. Capitolo 3). Cancellate la memoria. 

2. In questi esercizi non usate il ? come abbreviazione di PRINT. Batte¬ 
te il seguente programma: 


90 OPEN 15.8.15 

100 OPEN 2.8.2."LISTA DONI.L." ♦ CHRr(50; 

110 PP1NT "NOME 
120 INPUT NOME* 

130 PRINT "PREZZO 
140 INPUT PREZ 

150 PRINT#15. , ‘P"CHR*<2>CHR*<3)CHRS(0)CHR*U> 

160 PRINT#2.NOME*.".".PREZ 

170 CLOSE 2 

180 CLOSE 15 

130 END 


Un record è un insieme organizzato di informazioni. Per immagazzi¬ 
nare un record su dischetto dovete essere in grado di trasferire due 
tipi di informazione: le informazioni sulla posizione del record e 
quelle contenute nel record. 

La riga 90 apre un canale per i comandi di indirizzo; la riga 100 apre 
un canale per la trasmissione dei dati. Questi due canali insieme sa¬ 
ranno chiamali canale di informazioni. I 15 nelle righe 90, 150 e 180 
si rileriscono al canale di indirizzamento; i 2 nelle righe 100, 150, 160 
e 170 si riferiscono al canale di trasmissione dati. L’8 si riferisce 
all'unità di gestione del disco. La "LISTA DONI.L.” + CHR$(50) crea il 
file LISTA DONI stabilendo la lunghezza di ciascun record a 50. Il 3 
nella riga 150 indica che state per mettere informazioni nel record 3 
del file. 
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Visualizzate il programma e controllatelo, specialmente i punti e vir¬ 
gola e le virgole. Notate la mancanza di spazi tra PRINT e P nelle ri¬ 
ghe 150 e 160. 

3. Eseguite il programma ed inserite il vostro nome ed una cifra ade¬ 
guata per il dono. Il disco comincia a "ronzare”? 


Cosa è successo alle informazioni rappresentate da NOME$ e PREZ? 


4. Salvate questo programma come WRITED1SK (vedi Cap. 3). 

5. Battete 

LOflirr’,8 

LIST 

per ottenere una lista dei file di programmi sul vostro dischetto. 
I programmi BASIC C-64 sono identificati sul catalogo con PRO nella 
terza colonna. Cosa compare nella terza colonna per il file LISTA DO¬ 
NI? 


REL sta per relativo, il nome tecnico del tipo di file che state usando. 


6. Cancellate la memoria e battete il seguente programma. 


90 OPEN 15.8,15 

100 OPEN 2,8,2. "LISTA IlONl.L," ♦ CNRflSe.' 

110 PRINT# 15, "P ,, CHR»'2)CHR*<3)CHR$(0>CHR$az 

120 INPUT#2.NOMEJ,PREZ 

130 CLOSE 2 

140 CLOSE 15 

150 ENL 


Visualizzatelo, controllatelo ed eseguitelo. Sta "ronzando" il disco? 


La riga 120 visualizza sullo schermo un punto di domanda? 
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Il programma ha visualizzato qualcosa sullo schermo? 


7. Aggiungete la riga 145 come segue: 

145 PRINT NOME*.PREZ 

Eseguite il programma. Nella riga 110 usate l'istruzione PRINT# 15 
per passare Tinformazione di indirizzamento ("P"). Il drive localizza 
il file LISTA DONI (CHR$(2)), il record 3 (CHR$(3)). L'informazione è 
letta dal record nella variabile NOMES e PREZ nella riga 120. È suf¬ 
ficiente a rendere utile l'informazione? 


8. Salvate questo programma come READDISK. 

9. Dovete aprire e chiudere un canale ogni volta che lo usate. Per scri¬ 
vere in un file usate un'istruzione PRINT # per collocare il corretto re¬ 
cord e un'istruzione PRINT # per trasferire le informazioni nel record 
scelto su dischetto. Per leggere da un file usate un'istruzione PRINT # 
per collocare il record corretto e INPUT # per trasferire i dati da que¬ 
sto record alle variabili in memoria. 

10. Ora passiamo ad usare file con più di un record. Caricate il program¬ 
ma WRITEDISK e visualizzatelo. Aggiungete le seguenti righe: 


80 LEI 1*1 

105 PRINT "BATTI FINE QUANDO VUOI FINIRE" 

125 IF NOME**"FINE" THEN CLOSE 2 CLOSE 15 END 
183 LET 1*1 «■ 1 
185 GOTO 90 


11. Cambiate la riga 150 cosi: 

150 PRINTH15, "P"CHR*(2.'CHR*(I JCHR* .0)CHR*< 1 ) 

Visualizzate nuovamente il programma per controllarlo. Il program¬ 
ma dovrebbe ora presentarsi così: 


80 LET 1*1 
90 OPEN 15.8,15 

100 OPEN 2,8,2,“LISTA DONI.L," + CHR*<50> 
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105 PRINT “BATTI FINE QUANDO VUOI FINIRE" 

110 PRINT “NONE 
120 INPUT NONE* 

125 IF NONE*= "FINE" THEN CLOSE 2 CLOSE 15 END 
130 PRINT “PREZZO: 

140 INPUT PREZ 

150 PRINTÌ15."P"CHRf<2>CHR*(I;CHR*<0)CHR*(l) 

160 PRIUT#2,NONE*; ". “.PREZ 

170 CLOSE 2 

180 CLOSE 15 

183 LET I-I «• 1 

185 GOTO 90 

190 END 


Eseguitelo. Alla richiesta di input immettete i seguenti nomi e cifre: 

ANNA 15000 
ROBERTO 35000 
GIACOMO 75000 
SUSANNA 45000 

Cosa battete per terminare l’immissione deM’informazione? 


Provate per vedere se avete indovinato. 


12. Salvate questo nuovo programma con lo stesso nome WRITEDISK 
battendo 


SAVE “i»0 WPITEDISK‘,8 


13. Caricate READDISK. Visualizzate il programma. Cancellate le righe 
130, 140, 145 e 150. Aggiungete le seguenti righe: 


80 LET 1-1 

135 PRINT NONE».PREZ 
137 LET I-I + 1 

139 GOTO 110 

140 CLOSE 2 
150 CLOSE 15 
160 END 


14. Cambiate la riga 110 cosi: 

110 PRINT#15. ”P"CHR*<2>CHR*a;CHR*(0)CHRS':l> 





Il programma dovrebbe apparire come segue: 


80 LET 1*1 
50 OPEN 15.8,15 

100 OPEN 2,8.2/“LISTft DONI.L," ♦ CHR*<50> 
HO PRINT*15, ' , P“CHR*(2>CHRt(I)CHR*(0>CHR*< 
120 INPUT*2,NOME*.PREZ 
135 PRINT NOME*.PREZ 
137 LET 1*1 ♦ 1 

139 GOTO 110 

140 CLOSE 2 
150 CLOSE 15 
160 END 


1) 


Controllatelo per assicurarvi che la punteggiatura sia corretta. Cosa 
pensate che accadrà quando il programma verrà eseguito? 


Eseguite il programma e guardate se avevate ragione. 

15. Premete run/stop/restore. Potete evitare il lampeggiamento della 
spia rossa sul disco aggiungendo la riga 115 e la subroutine che se¬ 
gue: 


115 GOSUB 500 

500 REM SUERGOTINE DI CONTROLLO 
510 INPUT#15,NUMERR 
520 1F NUMERR-50 THEN 140 
530 RETURN 


Eseguite il programma. Si è accesa la luce rossa lampeggiante? 


16. Ora ricavate alcune informazioni dal file. Visualizzate il programma. 
Aggiungete la seguente riga: 

134 IF PREZC50O00 THEN 137 

Eseguite il programma. 

Sono stati visualizzati tutti i nomi? 
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17. Potete acquisire informazioni dal file. Visualizzate il programma; 
cambiate le righe 160 e 134 e aggiungete le righe 70 e 170 come se¬ 
gue; 


160 PRINT "CI SONO ",CODONI SOPRA 50000 LIRE" 
134 IF PPEZ250000 THEN LET OC ♦ 1 
70 LET C=0 
170 ENI' 


Visualizzate il programma che dovrebbe apparire cosi: 


70 LET C®0 
80 LET 1=1 
90 OPEN 15,8,15 

100 OPEN 2,8,2,“LISTA D0NI,L," ♦ CHR*<50> 

110 PRINT#15,"P"CHR#<2>CHR#(I)CHR#(0)CHR#<1> 

115 GOSUB 500 

120 INPU T #2,NONE #,PRE2 

134 IF PREZ350000 THEN LET C*C ♦ 1 

135 PRINT NOME#,PREZ 
137 LET 1=1 ♦ 1 

139 GOTO 110 

140 CLOSE 2 
150 CLOSE 15 

160 PRINT "CI SONO ";C,"DONI SOPRA 50000 LIRE" 
170 END 

500 REM SUBROUTINE DI CONTROLLO 
510 INPUT#15-NUMERR 
520 IF NUMERR*50 THEN 140 
530 RETURN 


Una volta eseguito il programma cosa pensate che verrà visualizzato? 


Eseguite il programma. Ciò che viene visualizzato concorda con le in¬ 
formazioni che avete scritto sul file? 


18. Visualizzate il programma. Cancellate la riga 160 e cambiate le righe 
70, 134 e 150 come segue: 


70 LET SQMMR=0 

134 LET 50MMA=S0MMA ♦ PREZ 

150 PRINT "IL COSTO TOTALE DEI DONI E' ", SOMMA 





258 I FILE 


Visualizzate il programma cd eseguitelo. Qual era il totale dei doni 
nelle informazioni che avete inserito? 


Cancellate la riga 135 ed eseguite il programma. Questa volta e stata 
stampata l'informazione contenuta in ciascun record? 


19. Qui finiscono gli esercizi di scoperta. Spegnete il computer e la TV; 
togliete il dischetto e spegnete il drive. 


12.3 Analisi 

APRIRE E CHIEDERE I CANALI 

Quando si usa un file su dischetto si lavora con canali di informazione. 
Questi canali sono di due tipi: per il trasferimento di informazioni sull’in- 
dirizzamento di un record (comandi al drive) e per il trasferimento di da¬ 
ti nel record (o del record). 

I canali sono necessari per trasferire il contenuto di record dal computer 
al disco e viceversa. Il canale per i comandi di indirizzamento è sempre 
stabilito con OPEN 15.8.15. Le istruzioni OPEN e CLOSE aprono e chiu¬ 
dono i canali di informazione. Per esempio le righe di programma 


200 OPEN 15.8.15 

300 OPEN 2.8.2."FILE UNO.L." 4 CHR*<70) 
400 CLOSE 2 
500 CLOSE 15 


aprono e chiudono i due canali di informazione al file FILE UNO. La riga 
200 apre il canale di indirizzamento, mentre la riga 300 apre il canale di 
dati per il file FILE UNO. La riga 300 determina, se necessario, il file co¬ 
me file relativo (REL), il tipo di file usato negli Esercizi di scoperta. Sem¬ 
pre nella riga 300 ogni record in FILE UNO è stabilito a lunghezza 70 
dalla L e CHR$(70). Le righe 400 e 500 chiudono il canale di informazione 
per FILE UNO, chiudendo ambedue i canali 2 e 15. 
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SCRIVERE INFORMAZIONI IN UN FILE 

Una volta che un canale di informazione è aperto, potete scrivere e legge¬ 
re in un file. Per scrivere in un file si usa l'istruzione PRINT # con quattro 
funzioni CHRS. Per esempio: 

110 PRINTtlS."P"CHP*<2>CHR*(3>CHR#<0>CHR*'li 

usa il canale di indirizzamento per individuare il file associato al canale 
2 di trasferimento dati c posiziona ("P") il file al record 3. CHRS(l) alla 
fine della riga 110 indica che desiderate accedere al record 3 dalla posi¬ 
zione 1. Il terzo CHR$ è usato solo se bisogna accedere a piu di 255 re¬ 
cord. Consultate la pagina 35 del manuale d'uso del drive. 

Per scrivere informazioni in un file, deve essere usato un altro PRINT#. 
Questo PRINT # usa il canale dati 2. Ad esempio, le due righe 

110 PRI NT# 15. M P “ CHR* (. 2 > CHR* < 3 > CHR* < 0 ) CHR* <1 > 

120 PF'INT#2. NOME*. ". " < PISUL 


stabiliranno il valore della variabile stringa NOME$ e il valore della va¬ 
riabile numerica RISUL nel terzo record del file associato con il canale 
dati 2 che inizia ancora alla posizione I. La riga 120 mette una virgola 
tra i due valori come un separatore. INPUT # usa questi separatori per 
stabilire dove finiscono le variabili. Nell’esempio seguente un canale di 
informazione è inizializzato al file QUIZ1 e permette ad alcune informa¬ 
zioni di essere scritte su questo file. 


90 LET 1=1 

100 OPEN 15-3/15 

110 OPEN 4/8.4/"QUIZl/Lz " + CHR*'50> 

120 PRINT "NOME 
130 INPUT NOME* 

140 IF N0ME*=“FINE“ THEN CLOSE 4 CLOSE 15 END 
150 PRINT "RISULTATO 
160 INPUT RISUL* 

170 PRINTH15. "P"CHR*(4>CHR*a)CHR*<.0;CHR*a) 
180 PRINT#4.NOME*.",".RISUL* 

190 LET 1=1+1 
200 CLOSE 4 
210 CLOSE 15 
220 GOTO 100 
230 END 


Nelle righe 100 e 110 è aperto il canale di informazione con QU1ZI (il file 
QUIZ1 è creato se necessario). A ciascun record è assegnata una lunghez¬ 
za di 50 caratteri. Nella riga 170 è individuato il record I. Nella 180, 
NOME$, una virgola e RISUL$ sono scritti nel record I del file associato 




260 I FILE 


al canale dati 4 (QUIZ1). Le righe 200 e 210 chiudono il canale di informa¬ 
zione. 


Osate due istruzioni PRINT# per scrivere in un file 


RICHIAMARE INFORMAZIONI DA UN FILE 


Per leggere informazioni da un file si usano PRINT # e INPUT # come nel 
programma seguente: 


90 LET 1-1 
100 OPEN 15-8,13 

110 OPEN 6-8-6-“QUIZ1-L-” ♦ CHR*<50> 

120 PRINT#15, "P H CHR*(6;CHR*a.>CHP*(0)CHR*a) 
130 INPUT#15-NUMERR 

140 IF NUMERR=50 THEN CLOSE 6 CLOSE 15 END 
150 INPUT#6 - NONE* - PI SUL# 

160 PRINT NOMES-PISUL* 

170 LET I»I «■ 1 
180 GOTO 120 
190 END 


La riga 120 è simile alla 170 del programma precedente. Essa individua il 
file associato con il canale dati 6 (QUIZ 1 ) e pone quel file al record 1. po¬ 
sizione I. Ricordate che senza l’istruzione nella riga 160, il computer non 
visualizza niente. 

L'istruzione INPUT# alla riga 150 legge semplicemente i dati nelle varia¬ 
bili: ciò che poi viene fatto con esse dipende dall'uscita che si desidera. 
Come nel caso precedente, PRINT# e INPUT# devono andare in coppia. 

Usate le istruzioni PRINT # e INPUT # per leggere un file 

Un "numero di errore” e inviato sul canale comandi (15) per ogni accesso 
al disco. Potete leggere il numero d’errore con l'istruzione INPUT# 15. Se 
non ci sono errori, il numero d’errore è 0. Nella riga 130 il canale coman¬ 
di trova il numero d'errore (NUMERR) dell'ultimo accesso al disco. 
Nella riga 140 si stabilisce se il numero d’errore è 50 (RECORD NOT 
PRESENT). Se il record è presente, avete raggiunto la fine del file di re¬ 
cord e vengono chiusi i due settori del canale di comando. Tecniche più 
elaborate di trattamento del file e degli errori sono contenute nel manua¬ 
le d’uso del drive VIC-1541. Ci addentreremo in alcune di queste tecni¬ 
che. 

Sul BASIC C-M è disponibile anche un altro tipo di file, chiamato file se¬ 
quenziale. Avete visto che i file ad accesso diretto permettono la lettura e 
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la scrittura da e in ogni record indicando il numero del record che si 
vuole usare. • 

Leggere file sequenziali è molto simile ad usare l'istruzione READ con 
l’informazione contenuta in un programma nelle istruzioni DATA. Certi 
compiti sono eseguiti meglio con file sequenziali che con file ad accesso 
diretto. Informazioni sui file sequenziali sono contenute nel manuale 
d'uso del drive VIC-I54I. al capitolo 5. 


12.4 Esempi di programmi 

Scriveremo una serie di programmi che possono essere utilizzati per co¬ 
stituire e mantenere una mailing list. 


ESEMPIO I — MAILING LIST: PROGRAMMA DI CARICAMENTO DATI 

Una mailing list contiene nomi, indirizzi e altre informazioni di persone 
fisiche o aziende. Ad esempio un programma di mailing list può contene¬ 
re le seguenti voci: 


COGNOME: (da inserire) 
NOME: (da inserire) 

VIA: (da inserire) 

CITTÀ: (da inserire) 

CAP: (da inserire) 
REDDITO: (da inserire) 


Il programma dovrà richiedere queste informazioni per ciascun nuovo 
soggetto inserito nella lista. Potete programmare il computer affinché 
esca dal loop di acquisizione quando viene inserita la parola FINE Le in¬ 
formazioni verranno salvate in un file chiamato MAILING LIST. Alla riga 
1020 viene verificata la correttezza della registrazione. Segue il program¬ 
ma completo. 


1 00 LET 1=2 

HO OPEN 15,8.15 

120 OPEN 2,8.2,"MRILING LIST.L. 

180 PR1NT ''COGNOME 

140 INPUT COGNf 

150 IF C0GN*="FINE" THEN 310 

IFj PRINT "NOME "i 

li’0 INPUT NOME* 

180 PRINT "VIH ", 


+ CHR*(120> 
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190 INPUT VIA* 

208 PRINT "CITTA' 

210 INPUT CITTA* 

220 PRINT "CODICE POSTRLE 

230 INPUT CAP* 

240 PRINT "REDDITO “» 

250 INPUT RED 

260 PRINTÌ15,"P"CHR*<2)CHR*<I)CHR*<0)CHR*<1) 
270 GOSUB 1000 

280 PRINTÌ2.COGN*. ". NOME*,”, ", VIR*. 

CRP*- ", ".RED 
290 LET 1=1 ♦ 1 
300 GOTO 130 
310 GOSUB 20O0 

320 CLOSE 2 

330 CLOSE 15 

340 END 

1000 REM VERIFICA LA PRESENZA DEL RECORD 
1010 INPUT#15-ERR-ERR* 

1020 IF ERR=50 OP ERR=0 THEN RETURN 
1030 PRINT EPP.EPR* 

1040 CLOSE 2 
105O CLOSE 15 
1060 END 
1070 RETURN 

20OO REM METTE IL NUMERO DEI RECORD E 

2010 REM LA LUNGHEZZA DEL FILE NEL RECORD 1 

2020 PRINT#15»"P"CHR*(2>CHR*<1)CHR*<0)CHP*\1) 

2030 GOSUB 1000 

2040 PRINT#2 <I-1 <“»“> 120 

2050 RETURN 


Salvale il programma come ENTERDAIA; lo useremo ancora. 


ESEMPIO 2 — PROGRAMMA DI AGGIUNTA RECORD 

Questo programma permeile di aggiungere record a un dato file. 11 pro¬ 
gramma precedente ENTERDATA richiede una piccola modifica. Questa 
modifica consiste semplicemente nella cancellazione della riga 100 e 
nell’aggiunta delle righe da 123 a 127 come mostrato qui sotto. 


110 OPEN 15.8»15 

120 OPEN 2.8.2. "MAILING LIST.L.” ♦ CHR*'. 120) 

123 PRINT#15. "P“CHR*<2)CHR*< 1 >CHP*'.0)CHR*< 1 ) 

124 GOSUB1000 

125 INPUT#2.RN 
127 LET I=RN ♦ 1 

130 PR1NT"C0GNUME ". 

140 INPUT COGN* 
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150 IF COGN$="FINE" THEN 310 
160 PRINT "NOME ", 

170 INPUT NOME* 

180 PRINT "VIP 
130 INPUT VIA* 

200 PRINT "CITTA' 

210 INPUT CITTA» 

220 PRINT "CODICE POSTALE ", 

230 INPUT CFlPS 

240 PRINT "REDDITO: ", 

250 INPUT RED 

260 PRINT# 15, "P"CHR*C2CHRt< I .•CHR#(0;'CHR*< 1 > 
270 QOSUB 1000 

280 PRINT#2,COGNS, “, “ ,NOME» - ",",VIA*, 

", , CAP* RED 
230 LET 1=1 + 1 
300 GOTO 130 
310 GOSUB 2000 
320 CLOSE 2 
330 CLOSE 15 
340 END 

1000 REM VERIFICA Lfi PRESENZA DEL RECORD 
1010 INPUT#15,ERP,ERR* 

1020 IF ERR=50 OR ERR*0 THEN RETURN 
1030 PRINT ERR,ERR* 

1040 CLOSE 2 
1050 CLOSE 15 
1060 END 
1070 RETURN 

2000 REM METTE IL NUMERO DEI RECORD E 

2O10 REM LA LUNGHEZZA DEL FILE NEL RECORD 1 

2020 PRINTH15, "P"CHR» <2->CHR*< 1 -■CHR»<0>CHR$C1 ) 

2030 00SUD 1000 

2040 PRINTH2,1-1 120 

2050 RETURN 


Salvate questo programma chiamandolo ADDRECORD. 


ESEMPIO 3 — PROGRAMMA DI STAMPA DI ETICHETTE 


Questo programma usa il file relativo .MAILING LIST per produrre la 
stampa di etichette per buste. Le etichette dovrebbero avere tre righe co¬ 
me mostrato nel seguente esempio: 


GATTI PAOLO 
VIA NEWTON 3 
20126 MILANO 
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Il programma completo è: 


100 LET 1*2 
110 OPEN 15.8,13 

120 OPEN 2,8,2,"MAILING LIST,L,” ♦ CHR*(120> 
125 REM LEGGE IL NUMERO DELL'ULTIMO RECORD 
130 PRINT#15."P"CHR*<2)CHRS<1JCHR$<0)CHPt<1) 
140 INPUT#2,RN 
145 REM LEGGE IL RECORD 

150 PRINT415- ,, P ,, CHR*(2)CHR*(I;CHR*<0)CHR*<1) 
160 INPUT*2,COGN*,NOME».VI fi*,CIUfi*.CAP*,RED 
165 REM STAMPA L'ETICHETTA 
170 PRINT COGN*,",";NOME* 

180 PRINT VIA* 

130 PRINT CAP*." "; CITTA* 

200 PRINT 

210 PRINT 

220 LET I»I ♦ 1 

230 IF I <= RN THEN 150 

240 CLOSE 2 

250 CLOSE 15 

260 END 


Salvate il programma con il nome LABEL. 


ESEMPIO 4 — PROGRAMMA DI SELEZIONE DI ETICHETTE 


Avendo scritto il precedente programma, potete facilmente selezionare 
record in un file in base a specifiche caratteristiche. In questo esempio 
potrete ottenere una serie di indirizzi di tutti quei nominativi il cui reddi¬ 
to supera i 20 milioni. Modificate il precedente programma cambiando 
semplicemente la riga 165 e aggiungendo la 167. Ecco il programma com¬ 
pleto. 


100 LET 1=2 
110 OPEN 15,8.15 

120 OPEN 2.8.2."MAILING LIST.L." ♦ CHR*<120) 
125 REM LEGGE IL NUMERO DELL ULTIMO RECORD 
130 PRINT415,"P“CHP*<2>CHR*<1>CHR*(0)CHRS<1) 
140 INPUTÌ2.RN 

145 REM LEGGE IL RECORD , v 

150 PPINTf 15,"P"CHR*(2.' , CHR*(DCHR$<0)CHR*<1> 
160 INPUT#2,COGN*,NOME*,VIA*,CITTA*,CAP*,RED 

165 REM SELEZIONA GLI INDIRIZZI 

166 REM CON REDDITO O 20 MILIONI 

167 IF RED O20E6 THEN 220 
170 PRINT COGN*,",";NOME* 
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4030 IF ANSf="V" THEM 150 
4O40 GOTO 430 
4050 RETURN 


Salvate questo programma come MODIFYRECORD. 


ESEMPIO 6 — UNA COMPLETA MAILING LIST 

ADDRECORD. LABEL. SELECTEDLABEL e MODIFYRECORD possono 
essere riuniti come subroutine di un programma principale. In questo 
modo sarà possibile scegliere una o più funzioni su un menu visualizzato 
da un semplice programma. Potrete usare questo programma per gestire 
una mailing list personale. Questo programma dovrebbe iniziare visualiz¬ 
zando un menu con tutte le opzioni disponibili. 


0. REGISTRAZIONE INIZIALE DATI 

1. AGGIUNTA DATI 

2. STAMPA TOTALE DI INDIRIZZI 

3. STAMPA SELEZIONATA DI INDIRIZZI 

4. MODIFICA DATI 

5. FINE 


Segue il listato. 


100 

110 

120 

130 

140 

150 

155 

160 

170 

180 

190 

200 


PRINT "0. REGISTRAZIONE INIZIALE DATI" 

PPINT "1. AGGIUNTA DATI" 

PRINT "2. STAMPA TOTALE DI INDIRIZZI" 

PPINT "3. STAMPA SELEZIONATA DI INDIRIZZI” 

PRINT "4. MODIFICA DATI” 

PRINT "5. FINE 

PRINT 

PRINT "SCEGLIETE UN NUMERO ", 

INPUT N 

IF N=5 THEN END 

IF N=0 THEN 10000 

ON N GOTO 11000,12000,13000-14000 


Ciascuna delle cinque subroutine dovrebbe essere rinumerala per essere 
incorporata nel programma principale: andranno inoltre aggiunte delle 
REM all'inizio di ciascuna di esse. Per far tornare il controllo al pro¬ 
gramma principale dopo l’esecuzione delle subroutine (che iniziano alle 
righe 10000, 11000. 13000, 140001 dovremo sostituire l'istruzione END al¬ 
la fine di ciascuna di esse con un GOTO 110. Per esempio ADDRECORD 
dovrà iniziare con: 



268 I RLE 


11000 REM SUBROUTINE ADDRECORD 
11110 OPEN 15,8*15 

mentre l’END alla riga 340 deve diventare: 

11340 GOTO Ile 

Le routine rimandano alla 110 poiché ENTERDATA deve girare solo la 
prima volta. 


ESEMPIO 7 — ACCESSO AI RECORD 

Negli esempi precedenti avete usato i comandi PRINT # e INPUT # per scri¬ 
vere e leggere un record in un file con le virgole come separatori di dati. 
In questo modo non è stato necessario curare l’esatta posizione di cia¬ 
scun elemento in un record. In questo esempio invece potremo posiziona¬ 
re ciascun elemento (o campo) di un record in una posizione specifica, at¬ 
traverso l’utilizzo dell’ultima funzione CHR$ nell'istruzione "P" PRINT#. 
Sono necessari ulteriori controlli della lunghezza delle stringhe per evita¬ 
re che un campo si sovrapponga al successivo. Nell'esempio il record è 
composto di tre campi: due stringhe e uno numerico. I campi vengono 
letti dal record memorizzato su dischetto partendo dalla seconda posizio¬ 
ne di ciascuno di essi. Segue il listato del programma. 


100 OPEN 15,8*15 

110 OPEN 2,8*2, "ESEMPIO,L." ♦ CHR*<40) 
120 READ DES*,PREZZO,COLR* 

130 DATA CAPPELLO,27000,ROSA 
140 REM 

150 LET SPAZI*®” 

1Ó0 LET DESTAMIDSCDES*.1,14) 

170 LET PAD®14 - LENCDES») 

180 LET DES*=DES* + MID*<SPAZI*,1 PAD) 
190 LET C0LR*®MID*<CQLR*,1,PAD) 

200 LET PAD=7 - LEN(C0LR*> 

210 LET CQLR*«C0LR* «-MI D*C SPAZI*,l.PAD) 
220 REM SCRIVE NELLE POSIZIONI 1,16,32 
230 LET P=1 
240 GOSUB 2000 
250 PRINT#2,DES* 

260 LET P=16 
270 GOSUB 2000 
280 PRI NT#2, PREZZO 
290 LET P=32 
300 GOSUB 2000 
310 PRINT*2,CQLR* 
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4030 IF ANSf ="V" THEM 150 
4O40 GOTO 430 
4050 RETURN 


Salvate questo programma come MODIFYRECORD. 


ESEMPIO 6 — UNA COMPLETA MAILING LIST 

ADDRECORD. LABEL. SELECTEDLABEL e MODIFYRECORD possono 
essere riuniti come subroutine di un programma principale. In questo 
modo sarà possibile scegliere una o più funzioni su un menu visualizzato 
da un semplice programma. Potrete usare questo programma per gestire 
una mailing list personale. Questo programma dovrebbe iniziare visualiz¬ 
zando un menu con tutte le opzioni disponibili. 


0. REGISTRAZIONE INIZIALE DATI 

1. AGGIUNTA DATI 

2. STAMPA TOTALE DI INDIRIZZI 

3. STAMPA SELEZIONATA DI INDIRIZZI 

4. MODIFICA DATI 

5. FINE 


Segue il listato. 


100 

110 

120 

130 

140 

150 

155 

160 

170 

180 

190 

200 


PRINT "0. REGISTRAZIONE INIZIALE DATI" 

PPINT "1. AGGIUNTA DATI" 

PRINT "2. STAMPA TOTALE DI INDIRIZZI" 

PPINT "3. STAMPA SELEZIONATA DI INDIRIZZI” 

PRINT "4. MODIFICA DATI” 

PRINT "5. FINE 

PRINT 

PRINT "SCEGLIETE UN NUMERO ", 

INPUT N 

IF N=5 THEN END 

IF N=0 THEN 10000 

ON N GOTO 11000,12000,13000-14000 


Ciascuna delle cinque subroutine dovrebbe essere rinumerala per essere 
incorporata nel programma principale: andranno inoltre aggiunte delle 
REM all'inizio di ciascuna di esse. Per far tornare il controllo al pro¬ 
gramma principale dopo l’esecuzione delle subroutine (che iniziano alle 
righe 10000, 11000. 13000, 140001 dovremo sostituire l'istruzione END al¬ 
la fine di ciascuna di esse con un GOTO 110. Per esempio ADDRECORD 
dovrà iniziare con: 
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11000 REM SUBROUTINE ADDRECORD 
11110 OPEN 15,8*15 

mentre l’END alla riga 340 deve diventare: 

11340 GOTO Ile 

Le routine rimandano alla 110 poiché ENTERDATA deve girare solo la 
prima volta. 


ESEMPIO 7 — ACCESSO AI RECORD 

Negli esempi precedenti avete usato i comandi PRINT # e INPUT # per scri¬ 
vere e leggere un record in un file con le virgole come separatori di dati. 
In questo modo non è stato necessario curare l’esatta posizione di cia¬ 
scun elemento in un record. In questo esempio invece potremo posiziona¬ 
re ciascun elemento (o campo) di un record in una posizione specifica, at¬ 
traverso l’utilizzo dell’ultima funzione CHR$ nell'istruzione "P" PRINT#. 
Sono necessari ulteriori controlli della lunghezza delle stringhe per evita¬ 
re che un campo si sovrapponga al successivo. Nell'esempio il record è 
composto di tre campi: due stringhe e uno numerico. I campi vengono 
letti dal record memorizzato su dischetto partendo dalla seconda posizio¬ 
ne di ciascuno di essi. Segue il listato del programma. 


100 OPEN 15,8*15 

110 OPEN 2,8*2, "ESEMPIO,L." ♦ CHR*<40) 
120 READ DES*,PREZZO,COLR* 

130 DATA CAPPELLO,27000,ROSA 
140 REM 

150 LET SPAZI*®” 

1Ó0 LET DESTAMIDSCDES*.1,14) 

170 LET PAD®14 - LENCDES») 

180 LET DES*=DES* + MID*<SPAZI*,1 PAD) 
190 LET C0LR*®MID*<CQLR*,1,PAD) 

200 LET PAD=7 - LEN(C0LR*> 

210 LET CQLR*«C0LR* «-MI D*C SPAZI*,l.PAD) 
220 REM SCRIVE NELLE POSIZIONI 1,16,32 
230 LET P=1 
240 GOSUB 2000 
250 PRINT#2,DES* 

260 LET P=16 
270 GOSUB 2000 
280 PRI NT#2, PREZZO 
290 LET P=32 
300 GOSUB 2000 
310 PRINT*2,CQLR* 


I RLE 269 


320 PRINT “DATI SCRITTI SUL PILE” 

330 PRINT DE3*»PREZZO,COLRt 
340 REM LEGGE I DATI DAL FILE 
350 LET P=1 
360 GOSUB 2000 
370 INPUT#2»FDES* 

380 LET P=16 
390 GOSUB 2000 
400 I NFiJT#2» FPREZZO 
410 LET P-32 
420 GOSUB 2000 
430 INPUT42/FCOLRt 
440 PRINT 

450 PRINT "DATI RILETTI DAL FILE" 

460 PRINT FDES#,FPREZZO.FCGLR* 

470 CLOSE 2 

480 CLOSE 15 

490 END 

2000 REM METTE P NEL RECORD 15 

2010 PRINT#15»”P"CHR*<2'CHR$<5)CHR#(0)CHR#<P> 

2020 RETURN 


12.5 Problemi 


1. Disegnate la struttura appropriata di un record per un file ad acces¬ 
so diretto usato per indicizzare la vostra collezione di cassette. Indi¬ 
cate la lunghezza massima di ciascun elemento nel record e la lun¬ 
ghezza totale del record. Stabilite per ciascun elemento della struttu¬ 
ra del record nomi di variabili valide per il BASIC C-64. 

2. Disegnate la struttura appropriata di un record per un file ad accesso 
casuale da usare per seguire l'andamento del vostro conto in banca. 

3. Disegnate la struttura appropriata di un record per un file ad acces¬ 
so casuale da usare per eseguire l'inventario della vostra dispensa. 

4. Scrivete la struttura appropriata di un record per un file da usare 
per gestire la mailing lisi. Ricordatevi che compleanni e anniversari 
sono importanti per la vostra corrispondenza personale. 

5. Scrivete un programma che usi un file per gestire i vostri acquisti. 
Ciascun record dovrebbe avere la seguente struttura: 
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Variabile 

Descrizione 

Lunghezza approssimativa 

CARTS 

Carta di credito 

20 

NOME? 

Nome del negozio 

30 

DATE$ 

Data dell'acquisto 

IO 

DESS 

Descrizione dell'acquisto 

50 

IMP 

Importo speso 

8 


Il programma dovrebbe permettervi di calcolare il totale degli impor¬ 
ti addebitati su ciascuna carta di credito. 


6. Scrivete un programma che usi la struttura del record del problema 
4 per gestire la vostra mailing list personale. Il programma dovrebbe 
permettervi di stampare gli indirizzi per gli auguri di Natale e per i 
messaggi agli amici. 


12.6 Test di apprendimento 


I. Se viene eseguito il seguente programma: 


90 OPEN 15 Et, 15 

10£i OPEN 2.0,2, "FILE DUE.L," + CHR*‘.?0; 

110 PRINT#15, “P"CHRf (2,'CHF’f (.S.'CHP* 1 0 1 ) 

120 PRINT#2."LINO",",“;"MfiRCO" 

130 CLOSE 
140 CLOSE 15 
150 END 


a. Quale file sara usalo? 


b. Quanti caratteri sono permessi in ciascun record? 


c. Quanti elementi sono inseriti nel record? 


d. In quale record verrà scritto? 
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2. Scrivete una riga di programma che apra un file relativo chiamato 
INVENTARIO con un record di lunghezza 45. 


3. Scrivete un programma che legga cinque elementi dal record 75 in 
un file relativo chiamato TESTI con un record di lunghezza 50. Assi¬ 
curatevi di chiudere il file. 


4. Cosa c’è di sbagliato nella seguente riga di programma? 


200 OPEN 2.8*2/“FILE UNO/L"/ CHR*<70> 


5. Cosa c'è di sbagliato nelle seguenti righe di programma che dovreb¬ 
bero leggere COGNS dal record 5 di un file chiamato FILE UNO? 


200 OPEN 15/3/15 

210 OPEN 2/8,2/"FILE UNO.L," 100 

220 PRINT# 15 , CHRS ( 5 ) CHRf (2) CHPS 0J CHRS 1 ,» 

230 INPUT COGNS 








Appendice 

Programma di 
supporto DOS 



IL C-64 WEDGE 

Il C-64 Wedge o programma di supporto DOS sul disco Demo (Test/Demo) 
permette di controllare il drive più facilmente. Potrebbe essere interes¬ 
sante per voi copiare questo programma e il DOS 5.1 su ciascuno dei di¬ 
schetti che usate. Per utilizzarlo dovete battere 

LOAD "C-64 WEDGE".8 
PUH 

ogni volta che accendete il computer. Una volta che il programma è cari¬ 
cato ed eseguito, potete usare la barra (/ ) per caricare i programmi senza 
bisogno delle virgolette, della virgola e del numero 8. 

Ad esempio: 

/MEDIA 

caricherà il programma MEDIA in memoria. Il tasto @ viene usato per 
mandare comandi al drive. Ad esempio: 

e* 


visualizza il catalogo e i file sullo schermo senza cancellare il programma 
in memoria. & è usata per formattare i dischetti e per cancellare pro¬ 
grammi e file da dischetto. Ad esempio: 
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0NEW0 PROVA.01 

formatta un dischetto come PROVA con ID 01. e 
8SCRATCH0 CIAO 

cancella il programma CIAO dal dischetto nel drive. Infine, gli errori del 
drive segnalati da una luce rossa lampeggiante, possono essere letti dal 
drive e visualizzati sullo schermo semplicemente battendo 

8 

Ulteriori informazioni sul C-64 Wedge sono contenute nel capitolo 3 del 
manuale d'uso del drive VIC-1541. 
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Guida rapida C-64 



COMANDI 

Cancellazione di un file Vedere il co¬ 
mando OPEN 

CONT Fa ripartire l'esecuzione dopo 
l'uso del tasto rum/stop . 

LIST Visualizza il programma in 
memoria 

LIST Visualizza l'intero programma 
LIST 40— 130 Visualizza le righe 
dalla 40 alla 130 

LIST-400 Visualizza tutte le righe 
fino alla 400 

LIST 400- Visualizza tutte le righe 
dalla 400 alla fine del programma 

LOAD "nome del file”,8 Trasferi¬ 
sce il programma nella memoria 
LOAD PIPPO".8 

NEW Cancella il programma in me¬ 
moria 

OPEN 13,8,13,'NEWO :nome del di¬ 
sco,ID" Formatta il dischetto con il 
nome del disco e l'ID; cancella 


ogni informazione precedente nel 
dischetto. 

OPEN 15.8,I5."NEW0:TASSE.ZZ" 

OPEN IS.8,I5."SCRATCH0 :nome del 
file" Cancella il file dal dischetto 
OPEN 15,8,15,"SCRATCH0: 
TASSEGIUGNO” 

Rl’N Esegue il programma in memo¬ 
ria 

SAVE " nome del flle",8 Scrive 
il programma in memoria nel di¬ 
schetto e gli da il nome specificato 
SAVE' ETICHETTE ",8 

SAVE "@0: nome del file",8 Eli¬ 
mina il contenuto del vecchio file e 
lo sostituisce con il programma in 
memoria 

SAVE ®0: ETICHETTE' .8 


FUNZIONI 

ABSói umeroì Calcola il valore asso¬ 
luto 

LET X = ABS< - 7) 
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ASCI.si ri riga) Riporla il codice ASCII 
del primo carattere della siringa 
specificata 
LET A = ASC(BS) 

CHR$< numero) Prende il numero di 
codice ASCII e riporta il carattere 
corrispondente 
PRINT CHRS<65) 

INT(numero) Riporta l'intero più 
grande minore o uguale del nume¬ 
ro specificalo 
LET Y = INT<2.7) 

LEN(s/rtnga) Riporta la lunghezza 
della stringa 
FOR X = I TO LEN(AS) 

MID$(stringa, ni. nZ) Riporla una 
stringa lunga «2 caratteri iniziarne 
con il nl-esimo carattere della 
stringa 

IF MID$(A$7.4) = "NOME" THEN 
300 

RNDùi) Riporta un numero casuale 
tra 0 (incluso) c I (escluso); un nu¬ 
mero negativo rimette il seme nel 
generatore di numeri casuali in 
modo tale che successivi richiami 
alla RND generano la stessa se¬ 
quenza di numeri casuali 
LET D = I + RND<1)*9 
IF RND(-2)>.5 THEN 220 

SGN(numero) Riporta il segno della 
espressione numerica specificata 
LET P = SGN(R-E) 

SQR( numero) Riporta la rappresen¬ 
tazione di stringa di un numero 
LET NS = STR$(27) 

TAB<n) Non è propriamente una fun¬ 
zione. ma è usata con l'istruzione 
PRINT; sposta il cursore alla posi¬ 


zione specificata, sulla linea oriz¬ 
zontale. 

PRINT "CIA0';TAB(I2);NS 

VALls/riuga) Converte una stringa di 
cifre in un numero 
LET P = VAUA$) 


ISTRUZIONI 

CLOSE n Chiude il canale aperto 
specificato da n 
CLOSE I 

DATA Lista di dati che contiene i va¬ 
lori da assegnare alle variabili 
nel l'istruzione READ 
DATA 7.2, PIPPO. 3.4.5 

DEF FNvl(v2) Definisce una funzio¬ 
ne, chiamata FNvl, della variabile 
v2 

DEF FNQX) = Z12 — 5 

DIM v(n) Riserva spazio per l'array. 
con le dimensioni specificate da 
ni, n2 

DIM A(I0,20|.BS(50) 

END Ferma l'esecuzione del pro¬ 
gramma 

FOR...TO/NEXT Genera un loop 
FOR J = I TO 10 
NEXT J 

FOR A = 2*X TO Y STEP 2 
NEXT A 

GET »•$ Assegna l'ultimo tasto pre¬ 
muto a i$ 

GET A5 

GOSUB moti, riga Chiama la subrou¬ 
tine iniziarne al numero di riga 
specificato 
GOSUB 500 
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GOTO num. riga Salta al numero di 
riga specificato (salto incondiziona¬ 
to) 

GOTO 412 

I F condizione THEN num. riga 

Salta al numero di riga specificato 
dopo THEN quando la condizione 
c vera (salto condizionato) 

IF X> 10 THEN 320 

IF condizione THEN istruzione 

Esegue l'istruzione dopo THEN 
quando la condizione è vera 
IF Y-2 = 7 THEN END 

INPUT »• Provoca una pausa del pro¬ 
gramma per l'input dalla tastiera e 
assegna il dato inserito alle varia¬ 
bili specificate 
INPUT A B INPUT D$ 

INPUT # n.v Fa leggere le informa¬ 
zioni dall’unità cullegata al canale 
n e le assegna alle variabili specifi¬ 
cate 

INPUT «I.A.NS 

LET v= espressione Assegna un va¬ 
lore alla variabile v 
LET X = 7 LETC = C+I 

ON !• GOSUB ni,«2 Provoca un salto 
ad una delle subroutine, a seconda 
del valore della variabile v 
ON N GOSUB 300.350,400 

OPEN 15,8,15 Apre un canale di tra¬ 
smissione di comandi; è richiesto 
prima di altre operazioni sul file 

OPEN ni, 8, ni, "nome del file. L," 

+ CHRSl»t2) Apre il canale dati ni 
per le operazioni di input e output, 
lo assegna al nome del file specifi¬ 
cato e stabilisce a n2 la lunghezza 
del record 

OPEN 2,8,2, "DATI,L," + CHRS(50) 


PRINT Manda l'output all'unità spe¬ 
cificata; in mancanza di specifica¬ 
zioni, è lo schermo 
PRINT A,B PRINT C$.X(J) 
PRINT# I.A$ 

READ lista di variabili Legge l’ele¬ 
mento successivo nella lista di DA¬ 
TA e lo assegna alla variabile spe¬ 
cificata 

READ BS,NUMERO,M(K) 

REM Permette l'inserimento di un 
commento in una riga di program¬ 
ma 

REM SALTA ALLA SUBROUTINE 

RF.STORE Ripristina i dati nelle 
istruzioni DATA in modo che pos¬ 
sono essere letti nuovamente 

RETURN Riporta il controllo del 
programma dalla subroutine 
all'istruzione che segue il GOSUB 


TASTI SPECIALI 


Controllo cursore 


|-»-CRSR—~ 


Sposta il cursore a de¬ 
stra di uno spazio 


| ♦ CRSR f 1 Sposta il cursore in giù 
di uno spazio 

|SHIFT|-^CRSR—1 


Sposta il cursore a 
nistra di uno spazio 


SHIFT | ♦ CRSR ♦ [ 


si- 


Sposta il cursore in su 
di unii spazio 


[iNSTi'OELl 


Cancella il carattere al¬ 
la sinistra del cursore 
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[SHIFTI IMST'DEL I 


RETURN 


Inserisce uno spazio al¬ 
la sinistra del cursore 

Segnala la fine della ri¬ 
ga battuta 


Altri tasti speciali 


Sposta il cursore alla 

r CLR/HOME l H ? ME neH ° 

1 J angolo in allo a sini¬ 

stra dello schermo 

1 SHIFT ICLR/HOMeI 

Pulisce lo schermo e 
pone il cursore nell'an¬ 
golo in alto a sinistra 
(HOME) 

|CTRL |g| [CTRL[91 

Cambia il colore o il 
modo dei caratteri co¬ 
me indicato nella fac¬ 
cia anteriore dei tasti 

| SHIFT | C* Permette il passaggio 

- L ~ - tra il modo maiusco¬ 
lo/grafico e quello 
minuscolo/ maiuscolo 



Fa accedere ai caratte¬ 
ri grafici segnati sulla 
destra della faccia an¬ 
teriore dei tasti, quan¬ 
do si è nel modo 
maiuscolografico 

Fa accedere ai caratte¬ 
ri grafici segnati sulla 
sinistra della faccia an¬ 
teriore dei tasti, in mo¬ 
do maiuscolo/grafico 


Interrompe il program¬ 
ma 


|RUN/STQP|RESTOREI 


Blocca ogni attività, 
cancella lo schermo e 
riporta il controllo alla 
tastiera 


Caratteri grafici 

Vi s i accede con i tasti [SHIFT] e 
I C- 1 nel modo maiuscolo/grafico. So¬ 
no segnati sulle facce anteriori dei ta¬ 
sti. 


Appendice 

Soluzioni dei test 
di apprendimento 



CAPITOLO I 

1. Premere il tasto return. 

2. Premete run/stop e restore, oppure spegnete e riaccendete il compu¬ 
ter. 

3. * 

4. Premere shift e clr/home. 

5. Divisione. 

6. Sullo schermo sarà visualizzato il numero 2. 

7. Sullo schermo sarà visualizzata la stringa 25/5 + 2. 

8. Spostate il cursore sulla G di PRING con il tasto delete che si trova 
sul lato destro della tastiera. Poi battete T2 + 3*4. 

CAPITOLO 2 

1. Premere il tasto return. 


2. Premere run/stop/restore. 
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3. Premere run/stop. 

4. L'istruzione PRJNT C non ha numero di riga. 

5. Sullo schermo sarebbe visualizzato il numero 2. 

6. Fino a 77 caratteri. 

7. Battere la riga usando un numero di riga non ancora presente nel 
programma. 

8. Ribattere la riga compreso il numero di riga. 

9. Battere il numero di riga e premere il tasto return 

10. Battere LIST e premere return. 

11. Premere shift/clr/home. 

12. Battere RUN e premere return. 

13. Battere NEW e premere return. 

14. Una variabile a stringa di caratteri termina sempre con $. 

15. Visualizza la riga 120 pronta per modifiche. 

16. Il tasto movimento cursore «=crsr=» e IU rsr» , qualche volta con shikt 
(per sinistra e alto). 

17. shift/inst/del c inst/del. 

18. Premendo return. 

CAPITOLO 3 

1. a) • b) I c) / 

2. a) Elevazione a potenza b) Moltiplicazione e divisione c) Addizione e 
sottrazione 


3. Addizione 
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4. Da sinistra a destra. 

5. 100 LET R=<4«-3*B/D)t2 

6. 4 

7. a) 5.I6E+09 b) 3.14E-05 

8. a) 7258000 b) 0.001437 

9. I poi + poi I 

10. a) Battere LOAD "nome del programma" , 8 e premere return 

b) Battere SAVE " nome del programma" , 8 e premere return 

c) OPEN 15,8,15, "SCRATCH0: (nome del programma)" 

d) Battere NEW e premere return. 

e) Battere LIST e premere return. 

f) Battere RUN e premere return. 

g) Battere LOAD"$”, 8 return e poi battere LIST return. 

11. Usate i tasti di movimento del cursore sulla destra della tastiera, per 
posizionare il cursore sull'errore. Battete il carattere giusto e preme¬ 
te return per immettere la riga. 


CAPITOLO 4 

1. 1 2 3 4 5 6 7 8 9 10 11 12 
13 14 15 16 17 18 19 20 21 22 23 2* 

(ecc.) 

2. a) Per mezzo di un'assegnamento (per esempio: 100 LET A = 3) 
b) Istruzioni INPUT distruzioni READ e DATA 

3. Una stringa. 

4. Fornire informazioni aU'interno del programma a beneficio del pro¬ 
grammatore o dell'utente. 
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5. DATA. 

6. Sarà visualizzato Y = 3. 

7. Quattro. 


8. Tante quante sono necessarie. 

9. Fornire un metodo per ottenere una spaziatura variabile in uscita. 


10. 1 3 

1 3 


11. 710.12.13 

7EXTRR IGNORED 
22 

READY 


12. 100 PRINT "IMMETTERE NUM.MIGLIA", 

110 INPUT N 
120 LET K»1.609*N 

130 PRINT N," MIGLIA EQUIVALGONO A ".«."CHILOMETRI" 
140 END 


CAPITOLO 5 


1 . 6 
10 
14 
18 


2. OTTIMO 


MIGLIORE 

OTTIMO 


BUONO 

MIGLIORE 

OTTIMO 


70UT 0F DATA ERROR IN 100 
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3. 100 PRINT "QUANTE BOTTIGLIE"; 

110 INPUT N 

120 IF N O 20 THEN 160 

130 IF N O 50 THEN 180 

140 LE" U*1500 

150 GOTO 190 

160 LET U=2000 

170 GOTO 190 

160 LET U=180O 

190 LET P*N*U 

200 PRINT "IL PREZ20 PER BOTTIGL IH E' ",U 
210 PRINT "IL COFTO TOTALE DELL ORDINE E ",P 
220 PPINT 
230 GOTO 100 
240 END 


4. 100 LET X=0 

110 PRINT X, 

120 LET X*X+5 

130 IF X <= 175 THEN 110 

140 END 


5 100 PRINT "QUHL E' IL LIMITE DI VELOCITA' " 

110 INPUT ft 

120 PRINT "OUHL E' LH VELOCITA' RILEVATA " 

130 INPUT B 

140 LET X=B-A 

150 IF X <= 10 THEN 210 

160 IF X O 20 THEN 230 

170 IF X O 30 THEN 250 

180 IF X <= 40 THEN 270 

190 LET F=80000 

200 GOTO 280 

210 LET F=5000 

220 GOTO 280 

230 LET F=100O0 

240 GOTO 280 

250 LET F*20000 

260 GOTO 280 

270 LET F-40000 

280 PRINT "LA MULTA E' ",F," LIRE" 

290 END 


CAPITOLO 6 


1. 20 18 16 14 12 10 8 6 4 2 

2. 12324636948 12 

3. a) 6 b) 7 c) 22.8 d)-l 
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4. I loop sono incrociati. 

5. 100 PRINT "MIGLIR",“CHILOMETRI" 

110 PRINT "- M ,"-" 

120 PRINT 

130 FOR M»10 TO 100 STEP 10 
140 PRINT (1,1.609*11 
150 NEXT M 
160 END 


6. 100 DRTR 10 

110 DRTR 25,21,24,21,26,27,25,24/23.24 

120 RERD N 

130 LET S=0 

140 FOR 1=1 TO N 

150 RERD X 

160 LET S=S*X 

170 NEXT I 

180 PRINT S/N 

190 END 


CAPITOLO 7 


1. Riservare spazio per un array. 

2. X(3,4) 

3. 100 DIM fl(50) 

110 PRINT "QUANTI NUMERI 
120 INPUT N 

130 PRINT “QURLI SONO I NUMERI" 

140 FOR 1=1 TO N 
150 INPUT R(I> 

160 NEXT I 

170 LET S=0 

180 FOR 1=1 TO N 

190 IF R(I) <» 0 THEN 210 

200 LET S=S+R(I) 

210 NEXT I 

220 PRINT ”LR SOMMR DEGLI ELEMENTI POSITIVI E' M ;S 


4. 100 FOR R=1 TO 4 
110 FOR C=1 TO 6 
120 LET X(R.C;*4 
130 NEXT C 
140 NEXT R 
150 END 
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5. 2 0 0 0 0 

0 2 0 0 0 

0 0 2 0 0 

0 0 0 2 0 

0 0 0 0 2 


6. a) 100 DIMA(2,3) b) A(2,3) = 4 c) A(X.Y) = A(l,2) = 3 d)A(A(l,l), 
A(2.2)) = A(l,2) = 3 


CAPITOLO 8 


1. Aggiungendo S al nome di una variabile numerica. 

2. Falso. 


3. MIPf-:A$, 10-8> 


4. 100 INPUT A* 

110 FOR Xri_EN<A*; T0 1 STEP -1 
120 PRINT HIDS(A$-1>X) 

130 NEXT X 
140 END 


5. A 

AB 

ABC 

ABCD 

ABCDE 


(ecc.) 

ABCDEFGHIJK.LMNOPQRSTUVWXYZ 


CAPITOLO 9 

1. a) 4 b) 14 c) 30 d) 80 

2. 2 1 3 

4 

3. a) Battere GOSUB e numero di riga all'inizio della subroutine, 
b) RETURN 



286 SOLUZIONI DEI TEST DI APPRENDIMENTO 


4. EiIRNCO 
ROSSO 
BLU 


CAPITOLO 10 

1. 6 

2. Lo schermo verrà pulito e il cursore posto nella posizione HOME 

3. Verrà stampata una J inversa. 

4. Verrà stampato un quadrato rosso. 

5. Premete il tasto C : e il tasto Q. 


CAPITOLO 11 


1. 100 FOR 1*1 T0 100 

110 LET X»INT<4*RND<l)+l> 
120 PRINT X; 

130 NEXT I 
140 END 


2. 100 FOR 1*1 T0 100 
110 LET X*25+25*RNDU> 
120 PRINT X, 

130 NEXT I 
140 END 


3. L'uscita sarà scelta a caso fra BIANCO e ROSSO. Vengono qui pre¬ 
sentate tre uscite del programma per indicare la natura casuale del 
processo. 


Cl) 

(2) 

<3> 

ROSSO 

BIANCO 

BIANCO 

ROSSO 

BIANCO 

ROSSO 

BIANCO 

ROSSO 

BIANCO 

BIANCO 

BIANCO 

BIANCO 

ROSSO 

BIANCO 

BIANCO 

ROSSO 

ROSSO 

BIANCO 

ROSSO 

ROSSO 

ROSSO 

BIANCO 

ROSSO 

BIANCO 

ROSSO 

BIANCO 

BIANCO 

ROSSO 

BIANCO 

ROSSO 





SOLUZIONI DEI TEST DI APPRENDIMENTO 287 


4. Cinque numeri casuali nella forma X.XX neH'intervallo da 0.00 a 
9.99. Sono presentate qui sotto tre uscite del programma per illustra¬ 
re la natura casuale del processo. 


(1) 

<2> 

<3) 

0.51 

6.69 

1.15 

9.34 

4.04 

8.87 

9.08 

9.06 

9.26 

9.26 

6.71 

2.59 

5.98 

8.15 

3.05 


CAPITOLO 12 


1. a) FILE DUE b)70 c)2 d) 5 

2. 100 OPEN 2,8,2,"INVENTARIO/L M ♦ CHRÌC45) 


3. 90 OPEN 15,8,15 

100 OPEN 2,8,2, "TESTI,L" ♦ CHR*<50.' 

110 PRINT415, "P"CHR$(2>CHR$(75)CHR*(0,’CHR*( 1 > 
120 INPUTÌ2 fl*,B*,C*,D*,E* 

130 CLOSE 2 
140 CLOSE 15 
150 END 


4. La riga corretta e: 

200 OPEN 2,8,2,"FILE UN0,L" «■ CHR*<70^ 


5. Le righe 210 e 220 dovrebbero essere 

210 OPEN 2,8,2,“FILE UN0,L," ♦ CHR*<100> 

220 PRINT415, "P ,, CHR#<2>CHR*<5>CHR*<0>CHR*( 1 > 



Appendice 

Soluzioni dei 
problemi 



CAPITOLO 4 


1. m- REM CRF' 4/PROB 1 
110 RERD R/B>C/D 
120 DmIR 10/9#1.2 
130 LET S=R+fc 
140 LET P=C*B 
150 PRINT S.P 
160 END 


3. 100 REM CfìP 4j PROB 3 
110 RERD fl,B/C,D 
120 DRTR 21/18/6<3 
130 PRINT R 
140 PRINT B 
150 PRINT C 
160 PRINT D 
1?0 END 


5. Non è stato assegnato alcun valore a C. 

7. 100 REM CRP 4,PROB 7 
110 PRINT “CONTANTE * % 

120 INPUT C 

130 PRINT "TITOLI COMMERCIRBILI = “i 

140 INPUT M 

150 PRINT "CREDITI * 

160 INPUT R 

1?0 PRINT "DEBITI = ■; 
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180 INPUT L 
180 LET A*'X+IMVL 
200 PRINT "INDICE = ",A 
210 END 


9. Il programma ritorna indietro alla riga 100 dove A è reso uguale a 1 
dopo ciascuna uscita. Il programma si può correggere cambiando la 
riga 130 come segue 


130 GOTO 110 


II. Il punto errato si trova nelle istruzioni 100, 110 e 120. I valori di L, P 
e A dovrebbero essere stampati, ma non sono stati definiti. Il compu¬ 
ter assegnerà il valore zero alle tre variabili e questi zero sono visua¬ 
lizzati dalle righe 100. 110 e 120. Il programma può essere corretto 
cancellando la riga 130 c L. P e A alla fine delle righe 100, 110 e 120. 
Ora e necessario aggiungere le righe seguenti. 

105 INPUT L 
115 INPUT P 
125 INPUT fi 


13. 100 REM CAP 4,PRQB 13 
110 DftTft 21423/21493/5 
120 DPT HI 5270/5504,13 
130 DftTft 65214,85559/11.5 
140 REftD R1/P2/G 
150 LET M^'.Rl-RIVG 
160 PRINT M 
170 GOTO 140 
180 END 


15. 100 REM CHIP 4/PROB 15 

110 DftTft 92,63/75,82,72/53/100/89/70/81 
120 REftD fl/B.C/D.E.F/G/H,!,J 
130 PRINT cft+B+C+D«-E+F-M3+H+I+J>/10 
140 END 


17. 100 REM CftP 4/PROB 17 

110 PRINT "TftSSO DI INTERESSE FISSftTO Oi> " 

120 INPUT R 

130 PRINT "QUANTE VOLTE E' COMPOSTO ALL'ANNO " 
140 INPUT M 

150 let T«(a+R/<i 00 *n;'.>'rM-n*i 00 

160 PRINT "IL TASSO REALE ANNUO DI INTERESSE E'“ 
170 PRINT T 
180 END 
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19. 10O REM CAP 4,EROE 19 

110 PRINT "INVESTIMENTO INIZIRLE "i 
120 INPUT P 

130 PRINT "TfiSSO DI INTERESSE ANNUO ("/.> 
140 INPUT I 

150 rRINT "ANNI DI ACCUMULO INTERESSI "J 
160 INPUT N 

170 LET r=P»'lt-I/100 -tN 

180 PRINT "IL VALORE TOTALE E ",T 

190 END 


CAPITOLO 5 


1. 100 REM CAP 5/ & ROB 1 
110 INPUT X,V 
120 IF X?Y THEN 150 
130 PRINT V 
140 GOTO lb0 
150 PRINT X 
160 END 


3. 100 REM CAP 5.PR0B 3 
110 LET S*0 
120 LET X=1 
130 LET S=S+X 
140 LET X*X+1 
150 IF X O 100 THEN 130 
160 PRINT S 
170 END 


5. OUT OF DATA ERROR IN LINE 120 


7. 100 REM CAP 5» PROB 7 
110 LET S=0 
120 READ X 

130 IF X*9999 THEN 180 
140 IF XC-10 THEN 120 
150 IF X>10 THEN 120 
160 LET S«S+X 
170 GOTO 120 
180 PRINT S 

190 DATA -l»22i17>-6,4,7,9999 
200 END 


9. 100 REM CAP 5/PROB 9 
110 LET C=*l 
120 LET T=0 
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130 LET W=10000 

140 LET T=T+U 

150 LET C-Ol 

160 LET U«2*W 

170 IF C<= 22 THEN 140 

1S0 PRINT T 

190 END 


II. Sarà stampato il numero 83. Il programma trova il maggiore dei nu¬ 
meri contenuti nelle due istruzioni DATA. 


13. 100 REM CflP 5,PROB 13 

110 PRINT “PREZZO DI LISTINO <L> % 
120 INPUT L 

130 PRINT "TASSO DI SCONTO C/.) 

140 INPUT R 

150 LET D=L*<1 - R/100> 

160 PRINT "IL PREZZO SCONTATO E'" 
170 PRINT Di" LIRE" 

180 END 


15. 100 REM CAP 5> PROB 15 
110 INPUT A,B 
120 IF A >= 10 THEN 140 
130 GOTO 180 
140 IF B >= 10 THEN 160 
150 GOTO 180 
160 PRINT A+B 
170 GOTO 280 
180 IF A < 10 THEN 200 
190 GOTO 240 
200 IF B < 10 THEN 220 
210 GOTO 240 
220 PRINT A*B 
230 GOTO 280 
240 IF A < B THEN 270 
250 PRINT A-B 
260 GOTO 280 
270 PRINT B-A 
280 END 


17. 100 REM CAP 5,PROB 17 

110 PRINT "TASSO DI CRESCITA (*/.) ", 

120 INPUT R 

130 LET N*0 

140 LET 0=1 

150 LET Q=Q*<1+R/100 ) 

160 LET N=N+1 

170 IF Q <= 2 THEN 150 
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180 PRINT “IL NUMERO DEI PERIODI DI CRESCITA 
PER IL RADDOPPIO E ",N 
190 END 


CAPITOLO 6 


1. 100 REM CAP 6.PROB l 
110 PRINT “ N'\ M SQRCN) - 
120 PRINT 

130 FOR N=2 TO 4 STEP .2 
140 PRINT N,SOR(N.> 

150 NEXT N 
160 END 


3. 100 REM CAP 6 » PROB 3 
110 INPUT N 

120 FOR X-2 TO N STEP 2 
130 PRINT X 
140 NEXT X 
150 END 


5. ABCDEFGHIJ 

ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 
ABCDEFGHIJ 


7. Siccome le iterazioni Z e V sono incrociate, comparirà un messaggio 
di errore. 


9. Legge e stampa cinque numeri arrotondati a due decimali. 


11. Visualizza 1. 

13. 100 REM CAP 6/PROB 13 
110 INPUT N 
120 INPUT X 
130 LET L*X 
140 LET H=X 
150 LET S«X 
160 FOR 1*1 TO N-l 
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170 INPUT X 

180 IF X > L THEN 200 

190 LET L=X 

200 IF X < H THEN 220 

210 LET H=X 

220 LET S=S+X 

230 NEXT I 

240 PRINT "IL VOTO PIU' ALTO E ">H 
250 PRINT "IL VOTO PIU' BRSSO E' *‘,L 
260 PRINT "LR NEDIH E' ",S/N 
270 END 


15. 1 2 3 

2 4 6 

3 6 9 

4 8 12 


17. 1O0 REM CRP 6.PR0B 17 
110 RERD N 
120 FOR 1*1 TO N 
130 RERD M,R,D1,D2,D3,D4,D5 
140 PRINT "MATRICOLA ",M 
150 LET H=D1*D2*D3+D4+D5 
160 IF H 0 = 40 THEN 190 
170 LET P=R*40 ♦ 1.5*R*<H-40> 
180 GOTO 200 
190 LET P=P*H 
200 PRINT "LR PAGA E' ",P 
210 NEXT I 
220 DATA 5 

230 DATA 2,4800.8-10.3.7,10 
240 DATA 5.3750.7,y,8.6.10 
250 DATA 1.3250.8.10.6,8.8 
260 DATA 4,5000,8,10,6,10,6 
270 DATA 3.4250,6,6,8,10,7 
280 END 


CAPITOLO 7 


I. 100 REM CAP 7.PR0B 1 
110 DIM X<20> 

120 READ N 
130 FOR 1*1 TO N 
140 READ XCI> 

150 NEXT I 
160 FOR 1=1 TO N 
170 PRINT X<IJ 
180 NEXT I 
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190 DRTft 12 

200 DRTR 2,1.4,3.2,4,5,6,3.5,4,1 
210 END 


3. 100 REM CflP 7,PROB 3 
110 DIM A(10,10> 

120 INPUT N 
130 POR R-l TO N 
140 FOR Cai TO N 
150 INPUT ft(R,C) 

160 NEXT C 
170 NEXT R 
180 LfcT 3=0 
190 FOP 1*1 TO N 
200 LET S=S ♦ 

210 NEXT I 

220 PRINT “LA SOMMft SULLft DI «GONFILE PRINCIPALE E' ",S 
230 END 


5. 100 REM CflP 7,PROB 5 
110 DIM 8(15,15.' 

120 INPUT M,N 
130 FOR P=1 TO M 
140 FOR C=1 TO N 
150 INPUT fl(R,C) 

160 NEXT C 

170 NEXT R 

180 LET 3=0 

190 FOR R=1 TO M 

200 FOP C=1 TO N 

210 LET S*S+fl<R,C) 

220 NEXT C 
230 NEXT R 

24C PRINT "LA SOMMp DEGLI ELEMENTI E' ",S 
250 END 


7. 10 


9. 16 


II. 10Ó REM CflP 7,PROB 11 
110 DIM X(100J 
120 INPUT N 
130 FOR 1*1 TO N 
140 INPUT X'I) 

150 NEXT I 

160 FOR 1*1 TO N-l 

170 IF X(I) >= X<I*1> THEN 220 

180 LET T=X<1+1> 
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190 LET x<n-n»xa> 
200 LET X(I>®T 
210 GOTO 160 
220 NEXT I 
230 FOR 1*1 TO N 
240 PRIHT X<I>i 
250 NEXT I 
260 END 


13 . 1 1 1 1 1 1 
0 0 0 0 0 0 
0 0 1111 
0 0 0 0 0 0 
0 0 0 0 1 1 
0 0 0 0 0 0 


15. 100 REM CAP 7 .PROB 15 
110 TIM X<2.S) 

120 FOR R-l TO 2 
130 FOR C-l TO 5 
140 READ X<R,C) 

150 NEXT C 
160 NEXT R 
170 DATA 2,1,0,5,1 
180 DATA 3,2,1,3,1 
190 FOR R-l TO 2 
200 FOR C=1 TO 5 
210 PRINT X<R,C>; 

220 NEXT C 
230 PRINT 
240 NEXT R 
250 END 


17. 100 REM CAP 7,PROB 17 
110 DIM X<20> 20) 

120 INPUT n,N 
130 FOR R-l TO M 
140 FOR C-l TO N 
150 INPUT X<R,C) 

160 NEXT C 

170 NEXT R 

180 FOR R-l TO M 

190 LET S-0 

200 FOR C-l TO N 

210 LET S-S+X<R,C> 

220 NEXT C 

230 PRINT "LA SOMMA DELLA RIGA ";R;" E' ",S 

240 NEXT R 

250 FOR C-l TO N 

260 LET P-l 
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270 FOR R *1 TO fi 
280 LET P=P*X<R,C> 

290 NEXT R 

300 PRINT "IL PRODOTTO DELLA COLONNA ";Ci" E' ";P 
310 NEXT C 
320 END 


19. 100 REM CAP 7-PROB 19 
110 DIM X(4, 6 > 

120 FOR R=1 TO 4 
130 FOR C-l TO 6 
140 READ X<R,C> 

150 NEXT C 
160 NEXT R 

170 DATA 48,40,73,120,100,90 
180 DATA 75,130,90,140,110,85 
190 DATA 50,72,140,125,106,92 
200 DATA 108,75,92,152,91,87 
210 FOR C=1 TO 6 
220 LET S«0 
230 FOR R=1 TO 4 
240 LET S=S+X<R»C> 

250 next R 

260 PRINT "IL TOTALE VENDITE GIORNALIERE ";C;" E' ",S 

270 NEXT C 

280 PRINT 

290 FOR R=1 TO 4 

300 LET S=0 

310 FOR C»1 TO 6 

320 LET S*S+X(R.C) 

330 NEXT C 

340 PRINT “IL TOTALE VENDITE PER AGENTE ";R;“ E' "iS 

350 NEXT R 

360 LET S*0 

370 FOR R*1 TO 4 

380 FOR C*1 TO 6 

390 LET S=S+X(R,C) 

400 NEXT C 
410 NEXT R 
420 PRINT 

430 PRINT "IL TOTALE VENDITE SETTIMANALI E'";S 
440 END 


21. 100 REM CAP 7,PRQB 21 
110 DIM P<20J,X(20) 

120 PRINT “LUNGHEZZA DEGLI ARRAV ", 

130 INPUT N 

140 FOR I»1 TO N 

150 LET P<I)«I 

160 NEXT I 

170 FOR R*1 TO N 
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130 INPUT X<R> 

190 NEXT R 

200 FOR 1=1 TO N-l 

210 1F X(P(I))>X(P(I+1)> THEN 260 

220 LET T=P(I) 

230 LET P<I>-P<I+1> 

240 LET P<1+1)=T 
250 GOTO 200 
260 NEXT I 
270 PRINT " P’\" X" 

2S0 PRINT 

290 FOR 1=1 TO N 

300 PRINT P<I>iXa>iX(P<;l>) 

310 NEXT I 
320 END 


CAPITOLO 8 


I. 100 

REM CftP 8.PR0B 1 



110 

INPUT fi* 



120 

FOR 1=1 TO LEN<fi*/ 



130 

PRINT MID*<fi*,M> 



140 

NEXT I 



150 

END 



3. 100 

REM CRP 8,PR0B 3 



110 

INPUT fi* 



120 

LET fl=0 



130 

LET E*0 



140 

LET 1=0 



150 

LET 0=0 



160 

LET U=0 



170 

FOR J=1 TO LENcfi*) 



180 

IF MID*(fi*<J» 1 ) = "fi" 

THEN 

240 

190 

IF MID*(fi*< J/1) = "E" 

THEN 

260 

200 

IF MID*(fi*<J» 1 ) = ,, I" 

THEN 

230 

210 

IF MID$(fi*j J«1) = "0” 

THEN 

300 

220 

IF MID*(fi*,J.l> = H U" 

THEN 

320 

230 

GOTO 330 



240 

LET fi=fi+l 



250 

GOTO 330 



260 

LET E=E+1 



270 

GOTO 330 



280 

LET 1=1+1 



290 

GOTO 330 



300 

LET 0=0+1 



310 

OOTO 330 



320 

LET U*U+1 



330 

NEXT J 



340 

PRINT "fi = ",fi 
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350 PRINT "E = "-E 
360 PRINT “I = I 
37*0 PRINT "0 = ";0 
380 PRINT "U * ";u 
390 END 


5. 100 REM CRP 8/PROB 5 
110 INPUT fi* 

120 FOR 1=1 T0 LEN<fl*) 

130 IF M ID*(fi*- I <1)=CHR*< 32 ) THEN 150 
140 LET B*=B* ♦ MID*(fl*-I -1 ) 

150 NEXT I 
160 PRINT E* 

170 END 


7. 100 REM CflP 8-PROB 7 
110 LET C=0 
120 FOR K=1 TO 5 
130 INPUT fi* 

140 IF MID*(A*-1 -4)0"IL 

150 LET COI 

160 FOR 1=2 TO LEN<A*)-3 

170 IF MID*<fi* -1 - 4>0"IL 

180 LET COI 

190 NEXT I 

200 NEXT K 

210 PRINT C 

220 END 


THEN 160 


THEN 190 


9. 100 REM CflP 8-PROB 9 
110 INPUT fi* 

120 LET C=0 

130 FOR K*1 TO LEN(.fi*>-l 

140 IF MID*Cfi*,K-2)0"IN" 

150 LET COI 

160 NEXT K 

170 PRINT C 

180 END 


THEN 160 


11. Cancellate le righe dalla 190 alla 250. Aggiungete le righe 185 e 355. 

185 FOR R*1 TO 3 
355 NEXT R 
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CAPITOLO 9 


1. 25 5 20 
65 


3. 100 REM CAP 9.PR0B 3 

110 DEF FNA<R)-3.14159*RT2 
120 DEF FNB<R>=4*3.14159PRT3/3 
130 PRINT 

140 PRINT M R'VAREfl DEL” , "VOLUME DELLA" 
150 PRINT TAB<10);"CERCHIO" , "SFERA" 

160 PRINT 

170 FOR R*1 TO 5 STEP .5 

180 PRINT R/TAB(7);FNA<R) , FNB<R) 

190 NEXT R 
200 END 


5. 55 
15 
36 


7. 500 REM SUBROUTINE 
510 LET L=X(2) 

520 FOR 1-3 TO XCD + l 
530 IF L >* X(I) THEN 550 
540 LET L«XU) 

550 NEXT I 
560 RETURN 


9. 900 REM SUBROUTINE 
910 LET S1=0 
920 LET S2-0 
930 FOR 1=2 TO V(t)+1 
940 LET S1«S1+V<I> 

950 LET S2=S2+YU>T2 

960 NEXT I 

970 LET M*SI/V<1) 

980 LET S-S(KUVa>*S2-S112>AV<l)*<Va)-0)> 
990 RETURN 


CAPITOLO IO 

1. Sarà stampato S OK. 

3. Modificate la riga 1010 nel modo seguente: 
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1010 IF R<1 OR R>25 OR C<1 OR 040 THEN 
PRINT "FUORI DRLLO SCHERMO": END 


5. Una modifica dell'esempio 4 dà: 


90 PRINT CHRS<28 )> 

100 PRINT CHR*(14?>; 

110 LET J*1 

120 PRINT CHR$(19); 

125 LET N*N ♦ 1 
130 FOR 1*1 TO N 
140 PRINT 
150 NEXT I 

160 PRINT TRB(J);"r-i" 

170 PRINT TfiB(J)j M l r 

180 PRINT TRB<J>;"I I" 

190 PRINT TRB<J);" - - - 

200 LET J*J ♦ 1 
210 IF J > 33 THEN END 
215 IF I > 20 THEN END 
220 PRINT CHRS<147)i 
230 GOTO 120 
240 END 


CAPITOLO II 

1. 50 REM CRP 11,PROB 1 


100 

FOR 1*1 

TO 25 

110 

LET N*INT<100*RND<1))/10 

120 

PRINT N, 


130 

NEXT I 


140 

END 


3. Una 

tipica visualizzazione è: 

.04 

.02 .17 

.14 

.01 

.03 .16 

.0J 

.05 

.17 .19 

.12 

.07 

.11 .19 

.11 

.19 

.2 .18 

.04 


5. 50 REM CRP 11, PROB 5 
100 FOR 1*1 TO 5 
110 RERD N 
120 LET H*0 
130 LET T*0 
140 FOR J*1 TO N 
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150 LET X*INT<2*RND<n*l> 

160 IF X-l THEN 190 
170 LET T=T*1 
180 GOTO 200 
190 LET H«H+1 
200 NEXT J 
210 PPINT 

220 PRINT "PER ",N;" LANCI CI SONO" 
230 PRINT H," TESTA E ";T;" CROCE" 
240 NEXT I 

250 DATA 10.50,100,500.1000 
260 END 


7. 50 REM CAP ll.PROB 7 
100 LET S-0 
110 FOR 1-1 TO 100 
120 LET S-S+RNDCn 
130 NEXT I 
140 PRINT S/100 
150 END 


9. 50 REM CAP ll.PROB 9 
100 LET M=0 
110 FOR 1=1 TO 1O00 
120 LET H=60*RND<1> 

130 LET B=60*RNI'( 1 > 

140 IF ABSCA-B»10 THEN 160 
150 LET M=M+1 
160 NEXT I 

170 PRINT “LA PROBABILITÀ" DI INCONTRARSI E' ",11/1000 
180 END 


II. 50 REM CAP ll.PROB 11 
100 FOR 1=1 TO 25 
110 LET S*0 
120 FOR J=1 TO 12 
130 LET S*S+RND<1> 

140 NEXT J 

150 LET R=10+2*(S-6) 

160 PRINT INTC100*R+.5J/100 
170 NEXT I 
180 END 


13. 50 REM CAP ll.PROB 13 
100 DIM A(ll) 

110 FOR N=1 TO 1000 

120 LET SQMMR=INT<6#RNDd)+l> + INT<6*F:NDd>+l> 

130 FOR 1=2 TO 12 

140 IF SOMMA*I THEN LET A<I-1>=A<I-1> ♦ 1 GOTO 160 
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150 NEXT 1 

16U NEXT N 

170 F0R 1=2 T0 12 

180 PRINT I,fi<I u 

130 NEXT I 

20O END 


CAPITOLO 12 

1. Una possibile struttura del record potrebbe essere: 


Variabile 

Descrizione 

Lunghezza approssimativa 

TITLCS 

Titolo della cassetta 

50 

MARCAS 

Marca della cassetta 

20 

NOME$ 

Nome dell'autore 

50 

TIPO$ 

Tipo di musica 

15 

PREZZOS 

Prezzo della cassetta 

5 

Il record dovrebbe essere lungo 145 dove 5 spazi extra sono stati ag¬ 
giunti come spazi separatori. 

Una possibile struttura del record è: 

Variabile 

Descrizione 

Lunghezza approssimativa 

NOMES 

Nome dell'articolo 

50 

POS$ 

Posizione dell'articolo 

15 

AMM 

Valore dell'articolo 

10 


La lunghezza del record dovrebbe essere 78 con 3 spazi aggiunti per 
separare gli elementi. 

5. Il programma per calcolare gli importi mensili e il totale degli impor¬ 
ti addebitali su ciascuna carta può essere il seguente: 


100 REM CRP 12,PR0B 3 
110 LET 1=1 

120 PRINT "CRRTR DI CREDITO H , 

130 INPUT CflRTf 
140 !F CRPT$=“FINE" THEN 320 
150 PRINT "NOME DEL NEGOZIO 
160 INPUT NOME? 

170 PRINT "BfiTfi DELL RCGUISTO ”, 

180 INPUT DRTET 

130 PRINT "DESCRIZIONE DELL'RCQUISTO "i 
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200 INPUT DES* 

210 PRINT "IMPORTO SPESO n i 
220 INPUT IMP 
230 OPEN 15,8,15 

240 OPEN 2,8,2,"CHARGE-L," ♦ CHR*(125) 

250 PRINT#15, "P“CHR*<2)CHR*a.'CHR*<0>CHR*a> 

260 GOSUB 1000 

270 PRINT#2,CART*,",NOME»,", ", DATE»;",",DES*;“,";IMP 

280 CLOSE 2 

290 CLOSE 15 

300 LET 1*1 «■ 1 

310 GOTO 120 

320 REM SOMMA GLI ADDEBITI 
330 LET SUM=0 

340 PRINT "CARTA DI CREDITO" 

345 PRINT "DI CUI CALCOLARE IL SALDO ", 

350 INPUT TEMP* 

360 IF TEMP*= M FINE" THEN END 
370 OPEN 15-8,15 

380 OPEN 2,8,2,"CHARGE,L," ♦ CHR*(125> 

390 FOR K=1 TO I - 1 

400 PRINTÌ15,"P“CHR*<2)CHR*<K)CHR*<0)CHR*<1> 

410 GOSUB 1000 

420 INPUT#2,CART*,NOME*,DATE*,DES*, IMP 
430 IF CART* O TEMP* THEN 450 
440 LET SUM=SUM IMP 
450 NEXT K 

460 PRINT "IL SALDO DELLA *; TEMP*," E' ",SUM 
470 CLOSE 2 
480 CLOSE 15 
490 GOTO 320 

1000 REM VERIFICA LA PRESENZA DEL RECORD 
1010 INPUT#15,ERRNUM,ERRNAME* 

1020 IF ERRNUM*50 OR ERRNUM=0 THEN RETURN 
1030 PRINT ERRNUM,ERRNAME* 

1040 CLOSE 2 
1050 CLOSE 15 
1060 END 


Nota: Questo programma non accumula le informazioni sul file. Potete 
fare in modo di aggiungere informazioni al file, come nell'Esempio 2. 
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Il successo che i libri di Herbert Peekham hanno 
incontrato in tutto il mondo è dovuto al metodo 
pratico con cui affrontano l’argomento della 
programmazione in BASIC. 

Questo in particolare è dedicato al C-64,uno dei più 
diffusi home computer. 

Il metodo pratico di Peekham, l’Hands-on-BASIC, 
accompagna gradualmente l’utente, al quale non è 
richiesta alcuna conoscenza matematica 
o informatica di base, dai primi approcci alla 
tastiera fino alla completa padronanza 
del computer e della programmazione. 

Ogni capitolo, dedicato ad uno o più argomenti, 
è così suddiviso: 

- una fase di “scoperta” nella quale il lettore 

è invitato a provare alcune istruzioni e a capirne 
l’effetto; 

- una fase teorica di consolidamento dove 

i concetti vengono dettagliatamente spiegati; 

- una serie di esercizi di revisione ai quali 

il lettore deve rispondere e attraverso i quali 
può valutare il proprio grado di apprendimento 
e decidere se passare al successivo capitolo 
o ritornare ad approfondire quanto gli è stato 
appena spiegato. 

Queste caratteristiche fanno sì che n BASIC 
e il COMMODORE 64 in pratica costituisca 
un formidabile strumento didattico adatto sia 
per un uso individuale che come testo nei corsi 
di informatica di base. 

Durante la trattazione sono esaminati in dettaglio 
numerosi programmi completi immediatamente 
utilizzabili. 
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